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ABSTRACT 

'  The  objective  of  this  study  is  to  improve  three  primary 
aspects  of  static  structural  testing  at  the  Naval 
Postgraduate  School.  First,  computer  controlled  digital 
multimeters  simultaneously  display  twelve  data  locations  on 
the  structure  while  the  test  is  in  progress.  Second, 
immediate  interaction  is  permitted.  If  some  unexpected  data 
occurs  during  the  testing,  the  test  plan  can  be  modified  to 
focus  in  on  any  area  of  interest.  Third,  the  operator  is 
presented  with  two  different  real-time  visual  inter¬ 
pretations  of  the  strain  gage  data  reduced  to  the  strain 
tensor  components  with  animated  deformations. 

These  objectives  contribute  to  enhancing  the  real-time 
correlation  between  input  load  and  output  structural 
response  in  terms  of  direct  physical  measurements  rather 
than  indirect  abstract  tensor  components. 
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I.  INTRODUCTION 


During  an  aircraft's  development  phase,  prior  to  mass 
production,  the  structural  strength  of  a  component  can  be 
determined  by  employing  destructive  testing  techniques. 
Destructive  testing  is  used  to  determine  the  performance 
envelope  that  will  serve  as  an  operational  limit  throughout 
the  structure's  useful  life.  However,  this  type  of  testing 
is  not  feasible  for  in-service  structures  or  as  a  monitoring 
process  for  determining  performance  degradation  with 
fatigue. 

From  an  accidental  overstress  or  due  to  simple  fatigue 
with  aging,  the  need  to  compare  actual  performance  with  that 
predicted  or  specified  in  the  contract  can  arise.  Several 
non-destructive  evaluation  techniques  include  dye  penetrant, 
eddy  current  and  ultrasound.  However,  these  techniques  are 
limited  in  that  they  can  only  identify  failure  and  can  not 
determine  over-stresses  or  gradual  degradations  in 
performance.  Dynamic  response  testing  and  static  load  and 
deformation  tests  can  locate  these  types  of  faults.  If  the 
results  of  a  particular  test  are  not  within  the  specified 
envelope,  the  response  testing  of  the  full  structure  can 
assist  in  focusing  in  on  the  failed  zone  or  component. 
Maintenance  action  can  then  concentrate  on  that  area  and  a 
reduction  of  cost  and  down  time  will  result.  Therefore,  a 


8 


m 


working  knowledge  of  non-destructive  response  methods  for 
determining  strength  or  structural  integrity  of  aircraft 
components  is  essential. 

The  need  to  upgrade  the  Naval  Postgraduate  School 
Aeronautics  Department  Structures  Laboratory  was  the 
motivation  for  this  study.  The  Aeronautics  Department  has  a 
section  of  P2V  wing  which  was  being  used  for  laboratory 
static  structural  tests  in  conjunction  with  several  core 
courses.  The  former  data  acquisition  system  consisted  of  a 
patch  panel  with  a  manual  switching  network  connected  to  a 
single  voltmeter.  Test  operators  were  capable  of  observing 
one  data  point  at  a  time.  The  data  was  recorded  manually. 
After  all  data  points  had  been  taken,  the  tedious  data 
reduction  process  commenced.  Data  interpretation  and 
visualization  could  only  be  done  after  the  data  had  been 
completely  reduced  which  frequently  occurred  days  after  the 
test  had  been  completed. 

The  purpose  of  this  thesis  was  to  modernize  the  data 
acquisition  and  control  system,  and  not  include  the  content 
of  the  static  test.  Therefore,  the  decision  was  made  to 
retain  the  P2V  wing.  While  the  P2V  has  not  seen  active 
service  since  the  1970s,  the  principle  of  construction  in 
it's  wing  structure  is  still  being  used  throughout  the 
aircraft  industry.  Therefore,  the  educational  content  of 
the  structural  testing  is  still  appropriate. 


»  *  .  *  /*  ►’*  .  •  .*•  A  ,*’•  i'*  s'*  •'*  /•  * 
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This  thesis  was  undertaken  with  several  goals  in  mind. 
Improvements  would  include  the  opportunity  to  simultaneously 
observe  multiple  data  points  during  the  static  testing 
procedure.  The  operator  would  be  given  the  chance  to 
interactively  change  the  test  plan  at  any  time  to 
investigate  an  area  highlighted  by  the  real-time  data 
reduction  and  display.  Multiple  interpretations  of  the 
reduced  data  would  be  available  while  the  static  test  was 
still  in  progress  and  decisions  could  be  made  affecting  the 
testing  plan  based  on  those  interpretations. 


II.  BACKGROUND 


The  P2V  wing  section  was  obtained  in  the  late  1950s  from 
the  storage  yard  at  Davis-Monthan  Air  Force  Base.  It 
measures  three  hundred  and  eighty-one  inches  from  the 
outboard  side  of  the  starboard  engine  nacelle  to  the  wing 
tip,  wing  station  192  to  station  573  [Ref.  1].  One  hundred 
and  eight  paper  bached  wire  strain  gages  were  mounted  on  the 
wing  surface  and  interior  structural  members.  These  gages 
were  in  single  elements  and  in  three-element  forty-five 
degree  rectangular  rosettes.  A  manual  switching  network 
with  an  analog  voltmeter  was  used  for  the  strain 
measurements.  The  wing's  load  application  structure 
consisted  of  hydraulic  actuators  capable  of  applying  pure 
torsional  loads  only.  The  load  monitoring  system  was  analog 
dynamometers.  All  data  acquisition,  reduction  and  analysis 
was  done  manually.  In  the  years  since  the  1950s, 
approximately  one  third  of  the  installed  strain  gages  had 


deteriorated . 


III.  MODERNIZATION  PROCEDURE 


A.  HARDWARE 

An  IBM  PC/AT  equipped  with  a  National  Instruments 
General  Purpose  Interface  Bus  (GPIB)  is  the  center  piece  for 
this  modernization  approach.  The  GPIB  installs  into  one  of 
the  computer's  expansion  slots  and  functions  as  a  link  or 
interface  system,  through  which  interconnected  electronic 
devices  communicate.  In  this  application  the  electronic 
devices  are  digital  voltmeters  and  they  were  connected  to 
the  GPIB  in  a  linear  configuration  (daisy  chained)  by 
shielded  twenty-four  wire  conductor  cables  with  both  a  plug 
and  receptacle  connector  at  each  end. 


Figure  3.1  Linear  GPIB  Connection  of  Digital  Voltmeters 
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In  order  to  achieve  the  high  data  transfer  rate  that  the 
GPIB  was  designed  for  between  connected  electronic  devices 
and  the  bus,  reference  2  lists  the  physical  limitations  for 
all  hardware  attached  to  the  National  Instruments  GPIB. 
However,  the  data  transfer  rate  of  the  GPIB  was  not  limited 
by  physical  constraints  in  this  application,  but  by  a 
conflict  created  by  the  digital  voltmeters  command  sequence 
which  will  be  discussed  later. 

The  GPIB  comes  equipped  with  an  initialization  routine 
which  must  be  run  prior  to  any  bus  utilization.  This 
routine  requires  bus  address  assignments  and  the  naming  of 
all  devices  connected  to  it.  It  then  builds  a  file  called 
GPIB.COM  which  must  be  on  the  default  directory  during  boot¬ 
up.  When  the  computer  is  brought  on  line,  the  automatic 
CONFIG.SYS  procedure  activates  the  GPIB.COM  file  and  the  bus 
settings  are  initialized. 

All  hardware  connected  to  any  GPIB  must  have  the  IEEE- 
488  interface  installed.  This  interface  is  essential, 
because  it  contains  the  dip  switches  necessary  for  device 
coding  and  it  has  the  required  cable  receptacle.  Those  dip 
switch  setting  constitute  the  device's  coded  name  and  are 
inputted  on  the  GPIB.COM  file.  It  is  through  those  dip 
switch  settings  and  the  initializing  GPIB.COM  procedure  that 
the  computer  recognizes  the  type  of  device  and  the  location 
of  the  device  within  the  linear  chain. 
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There  are  twelve  Fluke  8840A  multimeters  connected  to 
the  GPIB .  All  twelve  have  the  required  IEEE-488  interface 
option  installed.  Reference  3  contains  further  information 
on  the  IEEE-488  interface.  The  Fluke  meters  were  chosen  for 
their  accuracy,  speed  in  measurement  and  primarily  their 
ease  in  programming.  The  8840A  has  a  set  of  device¬ 
dependent  commands  which  correspond  directly  to  the  front 
panel  controls  and  can  be  sent  to  the  meter  via  the  GPIB  bus 
when  in  the  REMOTE  mode  of  operation  [Ref.  4].  The 
multimeter  performs  the  analog  to  digital  conversion  of  all 
measurements  and  the  GPIB  can  obtain  the  meter  reading 
directly. 

A  desirable  feature  of  the  Fluke  8840A  is  the  OFFSET 
function  which  sets  a  relative  datum  from  which  all 
subsequent  readings  are  taken.  It  was  this  OFFSET  function 
that  presented  the  data  transfer  problem  to  the  GPIB.  The 
GPIB's  data  transfer  rate  is  so  rapid  that  if  any  attempt  is 
made  by  the  computer  to  set  the  OFFSET  first  and  then 
trigger  a  reading  in  the  same  command  string,  an  "ERROR  32" 
occurs.  "ERROR  32"  indicates  that  OFFSET  was  selected  when 
a  reading  was  unavailable  or  overrange.  The  OFFSET  feature 
must  be  sent  exclusive  of  any  trigger  command  in  a  single 
instruction  string.  The  multimeter's  output  received  by  the 
GPIB  is  in  the  form  of  an  eleven  character  alphanumeric 
string  and  before  any  arithmetic  operations  can  be  performed 
on  it,  conversion  to  a  numerical  string  is  required. 


14 


Figure  3.2  Load  Application  Structure 
The  entire  load  application  structure  was  dismantled  and 
a  new  frame  constructed.  The  frame  is  made  of  fifteen  and 
ten  foot  length  beams  of  one-half  inch  alloy  aluminum 
attached  by  bolts  to  the  floor.  The  frame  is  designed  to 
provide  several  load  options:  pure  bending,  pure  torsion  or 
a  combination.  Due  to  the  simplicity  of  the  connecting 
hardware,  reconfiguring  for  different  load  applications  will 
take  minimal  time.  All  connecting  hardware  was  designed  or 
specified  to  withstand  a  maximum  of  four  thousand  pounds  of 
force  in  tension.  The  wing  structure's  load  limitation  is 
two  thousand  pounds  with  the  front  spar  web  installed.  A 
stability  analysis  was  done  on  the  frame  and  those  results 
are  contained  in  Appendix  C. 


15 


TORSION 


BENDING 

Figure  3.3  Load  Application  Structure  Configurations 
A  Baldwin-Lima-Hamilton  load  cell  was  installed  in 
series  with  each  of  the  two  hydraulic  actuators.  These  load 
cells  provide  the  load  monitoring  transducer  when  connected 
to  separate  digital  voltmeters  at  the  load  cell  panel.  The 
meters  were  calibrated  to  read  directly  in  pounds  of  force 
tension.  Appendix  B  contains  the  calibration  statistics  and 
procedure.  These  meters  can  not  be  read  directly  by  the 
computer  and  therefore  must  be  manually  monitored  during 
loading  and  their  results  entered  into  the  program  when 
prompted.  Load  cells  one  and  two  are  currently  connected  to 
the  structure.  The  number  three  load  cell  is  a  spare  or  it 
can  be  used  as  a  third  load  monitor  in  different  multiload 
configurations. 


Figure  3.4  Load  Cell  Monitoring  Panel 

Approximately  thirty  of  the  mounted  paper-backed  wire 
strain  gages  had  failed  since  the  1950s.  These  were  removed 
and  operable  paper-backed  wire  gages  were  installed  in  their 
locations.  Additionally,  newer  generation  epoxy-backed  foil 
gages  were  installed  in  strategic  locations  internal  to  the 
wing  structure  on  the  hat  and  stringer  sections.  Appendix  A 
contains  the  strain  gage  location  information.  These  new 
gages  were  located  adjacent  to  the  older  style  gages  in 
order  to  provide  comparisons  between  gage  types  and  the 
different  lay-ups  of  the  rosettes. 

The  new  strain  gage  rosettes  were  purchased  specifically 
to  optimize  measurements  in  shear  and  they  will  provide  the 
highest  resolution  in  determining  the  two  Mohr's  circle 
invariants;  radius  and  circle  center  location  along  the  X- 
axis.  Perry/Lissner  and  Beer/ Johnston  provide  further 
information  on  the  Mohr's  circle  interpretation  of  strain 
gage  rosette  data  [Refs.  5,  6]. 
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RECTANGULAR  DELTA 


4 -ELEMENT  STACKED 


Figure  3.5  Strain  Gage  Lay-up  Mohr's  Circle  Resolutions 

B.  SOFTWARE 

The  National  Instruments  GPIB  comes  equipped  with  a 
handler  written  in  IBM  BASICA.  BASIC  was  chosen  as  the 
controlling  software  for  it's  general  acceptability,  ease  in 
programming  and  powerful  color  graphics  capability.  The  IBM 
PC/AT  is  equipped  with  an  Enhanced  Graphics  Adapter  (EGA) 
and  Enhanced  Color  Monitor.  BASIC  is  one  of  only  a  few 
programmable  languages  which  currently  utilizes  the  screen 
resolution  and  color  offered  by  this  combination;  640  screen 
pixels  in  horizontal,  350  screen  pixels  in  vertical,  sixteen 
colors . 
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The  BASIC  program  consists  of  three  separate  programs 
which  are  linked  together  by  the  CHAIN  statement;  P2V- 
CAL.BAS,  P2V-LOAD. BAS  and  P2V-ANAL.EXE.  All  three  program 
listings  are  contained  in  Appendix  D.  These  programs 
perform  five  major  procedures; 

(1)  Updating  the  installed  strain  gage's  resistance  in 
the  hard  disk's  memory. 

(2)  Calculating  a  strain  gage's  calibration  factor  based 
on  a  shunt  resistance  measurement. 

(3)  Loading  the  wing  and  measuring  the  strain  gage  output 
with  graphical  analysis  of  the  results. 

(4)  Graphically  analyzing  the  last  set  of  data  displayed. 

(5)  Adding,  deleting  or  replacing  strain  gage  hardware 
installed  on  the  wing. 


Figure  3.6  Controlling  Software  Program  Structure 


Procedures  (1)  through  (3)  should  be  done  sequentially. 
However,  since  the  result  of  each  procedure  is  stored  on  the 
internal  hard  disk,  all  three  need  not  be  completed  in  a 
single  session.  Procedure  (4)  exists  primarily  to 
demonstrate  the  graphics  portion  of  the  program.  Procedure 
(5)  is  to  be  used  only  when  changing  the  strain  gage 
configuration. 

The  graphical  display  of  the  strain  gage  data  comes  in 
two  forms;  the  traditional  Mohr's  circle  and  a  pictorial 
representation  of  a  area's  surface  element  deformation. 

(See  Fig.  3.7)  The  surface  element  deformation  display 
presents  a  square  depicting  an  element  of  wing  surface 
before  load  application  and  the  deformed  square  by  the 
applied  load  as  calculated  from  the  strain  gage  rosette  at 
the  respective  location.  In  order  to  better  observe  changes 
in  the  loaded  element,  an  isotropic  strain  multiplier  is 
used  if  the  strain  level  is  below  five  tenths  of  a  micro¬ 
inch  per  inch.  Park's  Interactive  Microcomputer  Graphics 
contains  the  information  necessary  to  write  algorithms  that 
accurately  display  the  elongations  and  rotations  associated 
with  the  strains  experienced  by  the  wing's  structural 
members  on  the  computer  monitor  [Ref.  7]. 

The  most  difficult  obstacle  encountered  in  programming 
was  interfacing  the  IBM  PC/AT  with  the  Hewlitt  Packard 
Laserjet  printer.  The  Laserjet  does  not  have  an  installed 


screen  graphics  print  capability.  As  a  result,  an  after- 
market  screen  utility  GRAFLASR  [Ref.  8]  was  purchased  to 
perform  this  necessary  function.  However,  the  screen  print 
utility  was  not  compatible  with  IBM  BASICA  in  the  highest 
possible  screen  resolution  mode.  Therefore,  in  order  to  get 
high  resolution  graphics  printing  directly  from  the  screen 
display,  the  program  P2V-ANAL.EXE  was  written  in  the  form  of 
a  compiled  BASIC  executable  file.  It  was  compiled  using 
Microsoft's  QuickBASIC  compiler  version  2.0  [Ref.  9].  When 
graphical  analysis  is  selected  immediately  after  the  print 
of  the  tabularized  loading  data,  the  program  stores  the 
current  applicable  data  on  the  hard  disk.  Then  IBM  BASICA 
is  terminated  and  the  compiled  executable  program  takes  over 
and  executes  the  screen  graphics  commands  after  it  inputs 
the  necessary  data  from  the  hard  disk.  The  screen  print  is 
not  attempted  in  the  BASICA  environment  but  under  DOS,  the 
normal  operating  system's  environment  and  no  conflict 
exists . 

Initially,  the  Laserjet  distorted  the  vertical  axis 
during  the  screen  print.  GRAFLASR 's  printer  driver  software 
file  for  the  Hewlitt-Packard  Laserjet  had  to  be  modified 
with  respect  to  the  vertical  axis  print  scale  in  order  to 
get  the  exact  dimensional  proportions  displayed  on  the 
screen  printed  on  the  paper. 


IV.  CONCLUSIONS  AND  RECOMMENDATIONS 

A.  CONCLUSIONS 

An  IBM  PC/AT  equipped  with  a  GPIB  connected  to  strain 
measuring  devices  can  provide  a  real-time  data  acquisition 
and  display  system  for  complex  static  structural  tests. 
Software  can  be  written  to  provide  various  graphical 
representations  of  the  results  giving  several  options  to  the 
operator. 

B.  RECOMMENDATIONS 

The  most  time  consuming  task  in  the  static  testing 
procedure  involves  the  optical  deflection  measurement  system 
currently  installed.  Ten  rulers  are  suspended  from  the 
wings  underside  at  known  wing  stations.  They  are  sighted 
with  a  surveyor  before  and  after  loading  to  determine 
deflections.  This  system  is  replete  with  opportunities  for 
human  error.  One  solution  would  be  the  installation  of  a 
low  power  laser  with  several  sensor  stations  along  the  wing 
to  measure  the  beam's  deflections.  Also,  the  connection  of 
simple  deflection  gages  to  various  stations  along  the  wing 
via  cable  system  would  give  highly  accurate  readings  with 
the  possibility  of  human  error  greatly  reduced. 

Due  to  simplicity  of  the  load  application  frame's 
construction  and  the  availability  of  additional  parts,  it 


would  be  easily  expanded  to  adapt  to  larger  and  more  complex 
loading  configurations.  Multiple  bending  and  torsional 
loads  along  the  wing  and  an  aerodynamic  load  could  be 
possible . 


BENDING/AERO  LOAD  DEFLECTION  £r  REIJEASE 


Figure  4.1  Possible  Loading  Configurations 
The  IBM  PC/AT  is  expandable  to  many  different 
applications.  The  Aeronautics  Department  has  a  commercial 
software  program  called  ENTEK  [Ref.  10]  which  is  capable  of 
interpreting  dynamic  response  data.  Purchase  of  a  precision 
hydraulic  vibration  rig  capable  of  selectable  frequencies 
and  amplitudes  or  the  simple  deflection/release  apparatus 
shown  in  Figure  4.1  could  expand  the  current  topics  of 
evaluation  to  include  some  areas  of  dynamic  response 
testing . 
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APPENDIX  A 


P2V  WING  OPERATOR'S  GUIDE 
A.  PRELIMINARY 

Prior  to  commencing  this  experiment,  two  decisions  must 
be  made.  First,  the  type  of  load  that  will  be  applied  to 
the  wing;  pure  torsion  or  pure  bending.  Second,  which 
strain  gages  will  be  monitored  on  the  wing  during  the 
application  of  that  load.  The  gages  should  be  chosen  based 
on  the  type  of  analysis  desired  and  the  load  applied. 


A-3  AR— 7-2  EA-13-250YA  UA-13-250UF 


Single  Rect.  Rosette  Delta  Rosette  Stacked  Rosette 

1  Wire  Gage  3  Wire  Gages  3  Foil  Gages  4  Foil  Gages 

120  A  120  A  120  A  120  A 

12  Total  32  Total  5  Total  5  Total 

Figure  l.A  Strain  Gage  Descriptions 

There  are  143  individual  strain  gages  installed  on  and 
inside  the  wing.  Most  are  in  strain  gage  rosettes  but  there 
are  12  that  are  single  element  gages.  108  are  older  wire 
gages  and  the  rest  are  newer  generation  foil  gages.  Table 
I. A  is  a  listing  of  strain  gages  by  type.  Figures  8. A,  9. A, 
10. A  and  11. A  "P2V  STARBOARD  WING,  Strain  Gage  Locations" 
contain  a  complete  description  of  gage  positions. 

CAUTION 

Twelve  gages,  all  of  the  same  type, 
should  be  monitored  during  each  program 
run.  Since  there  is  only  one  unloaded 
temperature  compensating  gage  used  to 
complete  the  Wheatstone  bridge  circuit 
for  the  twelve  loaded  gages,  any  attempt 
to  mix  strain  gage  types  will  result  in 
erroneous  data. 
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B.  SETUP 


(1)  Remove  and  stow  the  equipment  covers. 

(2)  Connect  the  desired  gages  to  the  DVM  leads  at  the 
strain  gage  peg  board.  Also,  connect  the  compensator 
leads  to  the  type  of  strain  gage  being  monitored.  The 
unloaded  temperature  compensator  gage  female  connectors 
are  in  the  lower  right  corner  of  the  upper  peg  board. 
They  are  enclosed  in  a  yellow  boarder  and  are  numbered 
147-150. 


CAUTION 


When  monitoring  rosettes,  keep  the 
rosette  gages  in  sequential  order  with 
respect  to  the  DVMs. 

Example  1:  rosette  with  gages  68,  69,  70 
connected  to  DVMs  1,  2,  3  and  then 
rosette  with  gages  21,  22,  23  connected 
to  DVMs  4,  5,  6. 

Example  2:  rosette  with  gages  136,  137, 

138,  139  connected  to  DVMs  1,  2,  3,  4 
and  then  rosette  with  gages  140,  141, 

142,  143  connected  to  DVMs  5,  6,  7,  8. 

(3)  Apply  power  to  the  following  equipment: 

-  Computer  and  Monitor.  As  the  computer  comes  up, 
it  will  commence  a  power-on  self  test.  The  self 
test  and  the  subsequent  loading  of  the  initial  batch 
file  is  automatic  and  requires  no  action  by  the 
operator.  The  monitor  has  brightness  and  contrast 
controls  directly  beneath  the  on/off  knob.  Do  not 
set  the  brightness  to  the  extreme  as  prolonged  use 
at  this  level  may  cause  permanent  damage  to  the 
screen . 


Monitor 


a  nra 

niiinni] 

0 


Computer 


Figure  2. A  Computer  and  Monitor  Power  Supply  Switch 
Locations 
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-  Printer.  The  printer  has  a  power-on  self  test. 
The  computer  must  be  turned  on  prior  to  the  printer 
or  a  logic  error  will  occur  in  the  printer's  self 
test.  The  printer  indicates  it's  ready  to  print 
when  the  number  00  is  in  the  status  window. 


Printer 


Figure  3. A  Printer  Power  Supply  Switch  Location 


-  DVM  Column  Master,  Individual  DVMs  and  the 
Voltage  Power  Source.  The  DVM  column  master  switch 
is  a  push  button  type  on/off  switch.  Wait  until  the 
DVM  column  cooling  fans  are  fully  up  to  speed  prior 
to  energizing  the  individual  DVMs  and  the  voltage 
source.  Only  the  right  side  of  the  voltage  source 
is  currently  being  utilized.  Do  not  adjust  the  DVMs 
or  the  voltage  source  at  this  time. 


Bridge 

Balance 

Controls 


Column  Master 


Individual  DUMs 


Uoltage  Source 


Figure  4. A  Digital  Voltmeter  Column  Power  Supply  Switch 
Locations 


-  Load  Cell  Panel  Master  and  the  Individual  DVMs. 
Do  not  attempt  to  zero  the  DVMs. 


Figure  5. A  Load  Cell  Panel  Power  Supply  Locations 


C.  PROGRAM  EXECUTION 

The  program  (P2V)  is  stored  on  the  internal  hard  disk  so 
no  disk  loading  is  necessary.  P2V  and  all  the  utilities 
necessary  to  run  it  are  in  the  \GPIB-PC  sub-directory.  A 
batch  file  is  available  to  make  access  simple. 

(1)  At  the  system  prompt,  C>,  type  "P2V"  and  then  hit 

Enter. 

First,  the  utilities  load,  then  the  program  will  run. 

The  program  is  structured  into  five  main  procedures: 

1.  Updating  strain  gage  resistances. 

2.  Obtaining  calibration  factors  based  on  a  shunt 
resistance  measurement. 

3.  Loading  and  measuring  strains  with  a  graphical  analysis 
of  rosettes. 

4.  Analyze  the  last  set  of  load  data  which  had  previously 
been  displayed.  This  procedure  is  primarily  for 
demonstration  purposes. 

5.  Adding/deleting/replacing  strain  gages  on  the 
installation. 

Procedure  5.  is  to  be  used  only  when  changing  hardware 
installed  on  the  wing.  The  other  three  procedures  should  be 
done  sequentially.  Since  the  results  of  each  procedure  are 
stored  on  the  hard  disk,  it  is  not  necessary  to  do  all  three 
procedures  in  one  sitting.  For  example,  strain  gage 
resistances  are  updated  and  then  the  calibration  factors 
computed.  If  the  system  is  secured  and  then  restarted  the 
next  day,  the  experiment  can  commence  at  procedure  3  since 
all  the  previous  data  has  been  stored  on  the  hard  disk. 


Hints  on  running  the  program: 


-  Due  to  a  bug  in  IBM  BASICA  the  backspace  key  has  been 
disabled.  To  correct  previously  typed  errors  prior  to 
hitting  Enter,  use  the  direction  keys  on  the  numeric 
keypad.  If  you  inadvertently  hit  the  backspace  key,  a 
window  appears  telling  you  what  to  do. 

-  When  making  strain  gage  resistance  measurements,  the 
leads  for  DVM  1  should  be  the  only  leads  connected  to 
the  strain  gage.  If  other  DVM  leads  are  left  connected 
and  a  resistance  measurement  taken  across  the  gage,  the 
reading  will  include  the  DVM  resistance  in  parallel  with 
the  strain  gage. 
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Figure  6. A  DVM1  Resistance  Lead  Connection  Points 


-  Several  times  in  the  program  a  screen  dump  to  the 
printer  occurs.  The  print  takes  approximately  two 
minutes  for  a  text  screen  and  three  minutes  for  a 
graphics  screen.  A  flashing  statement  will  appear  when 
a  print  is  in  progress,  except  for  a  graphics  screen. 
Program  execution  halts  during  a  screen  dump. 

-  Do  not  waste  allot  of  time  trying  to  balance  the 
Wheatstone  bridge  circuits  to  zero.  Get  them  as  close 
as  possible  to  keep  current  flow  to  a  minimum,  since 
the  Fluke  meters  utilize  an  OFFSET  function,  exact  zero 
is  not  necessary. 

-  Analysis  of  the  strain  gages  rosettes  being  monitored 
can  be  accomplished  by  the  program  with  graphical 
results  only  immediately  after  the  screen  print  of  the 
load  summary.  If  the  choice  is  made  to  get  additional 
load  data  without  doing  the  analysis,  the  opportunity 
for  the  program  to  calculate  the  analysis  is  lost  for 
that  set  of  load  data. 

-  Only  as  a  last  resort,  the  program  can  be  terminated 
at  any  time  by  hitting  Ctrl/Break  simultaneously.  To 


clear  the  screen  and  return  to  the  primary  text  screen, 
hit  F10 .  To  rerun  the  program  from  this  point,  type 
SYSTEM,  Enter  and  then  P2V.  The  initial  selection  menu 
should  now  be  in  view. 


CAUTION 

Exit  from  the  program  using  the 
Ctrl/Break  procedure  can  cause  loss  of 
computed  data  up  to  that  point.  For 
normal  program  termination,  use  one  of 
the  Exit  options  in  a  program  selection 
menu. 

D.  HYDRAULIC  OPERATIONS/WING  LOADING 


Loading  Ualue  Electrical  Power  Switch 


Figure  7. A  Hydraulic  Loading  System  Component  Location 


The  hydraulic  loading  system  consists  of  an  electric 
motor  which  drives  a  constant  pressure  hydraulic  pump  to 
provide  pressure  via  two  lines  to  actuating  cylinders 
attached  to  the  wing.  Prior  to  actuating  the  electric  motor 
ensure  that  the  loading  valve  is  open  (spins  freely  counter 
clockwise)  and  the  shift  selector  is  in  the  NEUTRAL 
position . 

(1)  START  the  electric  motor.  Allow  at  least  3  minutes 
of  warm  up  prior  to  loading. 

(2)  Zero  the  load  reading  at  the  Load  Cell  Panel  by 
using  the  bridge  balances. 

(3)  Place  the  shift  selector  in  the  P2V  WING  position 
and  pin  it.  A  slight  load  might  appear  on  the  load 
meters  due  to  leakage  at  the  loading  valve. 
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(4)  Slowly  turn  the  loading  valve  clockwise.  Several 
turns  may  be  required  prior  to  the  first  indications  of 
hydraulic  loading,  depending  on  how  far  out  the  previous 
operator  set  the  valve.  Scan  the  load  meters  and  the 
hydraulic  pressure  gage  for  indications  of  system 
loading. 

CAUTION 

Hydraulic  system  hysteresis  evidenced  by 
a  large  split  in  load  meter  readings  is 
best  avoided  by  a  slow,  smooth  and 
continuous  turn  of  the  loading  valve  to 
the  desired  load.  A  large  split  will 
occur  if  the  desired  load  reading  is 
overshot  and  the  system  unloaded  down  to 
the  value.  If  a  gross  overshoot  occurs, 
completely  unload  the  system,  reset  the 
DVMs  to  zero  and  try  again. 

(5)  If  a  split  between  load  cells  exceeds  say  2%  of  the 
desired  value,  completely  unload  the  system,  reset  the 
DVMs  to  zero  and  try  again. 

(6)  Load  limits  are  2100  lb.  with  the  front  spar  web 
installed  and  1050  lb.  with  the  front  spar  web  removed. 

Hints  on  successful  operation  of  the  hydraulic  system 
include: 

-  When  turning  the  loading  valve  make  slow,  smooth  and 
continuous  turns.  Do  not  loose  patience  and  rapidly 
turn  the  valve. 

-  Set  zeros  at  the  Load  Cell  Panel  only  when  the  loading 
valve  spins  freely  counter-clockwise  and  the  shift 
selector  is  in  neutral. 

-  If  the  system  has  not  been  used  for  an  extended 
period,  load  the  system  up  to  1000  lb.  to  exercise  the 
linkage,  then  unload  and  set  the  zeros  prior  to 
attempting  a  program  run. 

-  A  plumb  bob  is  suspended  from  the  upper  support 
member.  A  sliding  scale  is  mounted  beneath  it.  Prior 
to  loading,  set  a  convenient  reading  as  zero  and 
occasionally  monitor  structure  deflection  if  at  the  load 
limit.  The  deflection  should  never  exceed  one-half 
inch. 


W-.  >  . 
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E.  SECURE 


When  securing  the  equipment  associated  with  the  wing, 
order  is  important  for  the  following: 

-  DVM  Column.  First  secure  the  individual  DVMs  and  the 
voltage  source,  then  the  column  master. 

-  Load  Cell  Panel.  First  secure  the  individual  DVMs  and 
then  the  panel  master. 

-  Hydraulics.  Always  unload  the  wing  at  the  loading 
valve  and  put  the  shift  selector  in  neutral  prior  to 
securing  the  hydraulic  pump  electrical  motor. 
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TABLE  I. A 


LIST  OF  STRAIN  GAGES  BY  TYPE 


A-3  AR-7-2  EA-13-250VA  WA-13-250WF 


Single  Rect.  Rosette  Delta  Rosette  Stacked  Rosette 

1  Wire  Gage  3  Wire  Gages  3  Foil  Gages  4  Foil  Gages 

120  A  120  A  120  A  120  A 

12  Total  32  Total  5  Total  5  Total 


19 

1-2-3 

109-110-111 

124-125-126-127 

20 

4-5-6 

112-113-114 

128-129-130-131 

36 

7-8-9 

115-116-117 

132-133-134-135 

37 

10-11-12 

118-119-120 

136-137-138-139 

71 

13-14-15 

121-122-123 

140-141-142-143 

72 

16-17-18 

103 

21-22-23 

104 

24-25-26 

105 

27-28-29 

106 

30-31-32 

107 

33-34-35 

108 

38-39-40 

41-42-43 

44-45-46 

47-48-49 

50-51-52 

53-54-55 

56-57-58 

59-60-61 

62-63-64 

65-66-67 

68-69-70 

73-74-75 

76-77-78 

79-80-81 

82-83-84 

85-86-87 

88-89-90 

91-92-93 

94-95-96 

97-98-99 

100-101-102 


STARBOARD 
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P2V  STARBOARD  WING 


BOTTOM  OF  TEST  SECTION 
TOP  SURFACE  OF  WING 

NOTE:  Y/ing  is  mounted  upside  down. 


FRONT  SPAR  WFB 


APPENDIX  B 


P2V  WING  LOAD  CELL  CALIBRATION  GUIDE 


PREFERRED  METHOD 


1.  Remove  the  load  cells  from  the  support  structure. 

2.  Install  threaded  shafts  with  nuts  in  both  ends  of 
the  load  cell.  Extra  threads  and  the  nuts  are  in  the 
drawer  below  the  load  cell  panel. 

3.  Position  the  load  cells  in  a  test  machine  with 
proper  capacity  (Riehle  300,000  lb.  testing  machine).  A 
solid  clamp  on  the  nuts  prior  to  loading  the  machine  is 
extremely  critical  for  accurate  readings.  However,  some 
slippage  will  occur  during  initial  loading  and  it  should 
be  anticipated. 

4.  Connect  the  load  cell  cannon  plugs  to  the  load  cell 
panel  as  would  be  in  normal  operations.  Remove  the 
front  panel  screws  and  tilt  the  panel  forward  exposing 
the  interior  electronics. 

Individual  DUMs 


Bridge  Balance  Adjust 


Panel  Master 


Figure  l.B  Load  Cell  Panel 


5.  Each  load  cell  has  a  voltage  regulator  and  amplifier 
connected  to  a  single  plug  in  board.  Locate  the 
amplifier  adjust  screw  that  corresponds  to  the  desired 
load  cell  being  calibrated.  They  are  from  top-to-bottom 
1,2,3.  The  adjust  screw  is  mounted  sideways  on  the 
amplifier. 
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Figure  2.B  Load  Cell  Amplifier  Adjust  Locations 


6.  Commence  loading  of  the  cell.  Do  not  attempt  to 
calibrate  the  load  cell  during  initial  loading  where 
some  clamp  slippage  will  occur.  The  DVM  reading  will 
lag  approximately  30  -  50  lb.  during  transient  loading. 
Stop  as  close  as  possible  to  2000  lb.  The  load  machine 
can  not  hold  a  constant  setting  of  2000  lb.  Therefore, 
it  will  take  at  least  two  people  to  successfully 
continue  the  calibration  of  the  cells  from  this  point. 

7.  One  person  should  give  short  load  bursts  on  the 
machine,  then  call  out  when  the  load  passes  the  target 
of  2000  lb.  The  other  person  should  attempt  to  adjust 
the  amplifier  so  that  the  2000  lb  DVM  reading  is  on  the 
mark.  A  successful  calibration  should  be  considered 
when  the  readings  are  within  5  lb. 

8.  Calibrate  the  remaining  cells  using  the  same 
procedure. 

9.  Reinstall  the  load  cells  on  the  wing  load 
application  structure. 

10.  Immediately  after  successfully  calibrating  all 
three  load  cells,  place  the  calibration  shunt  resistor 
across  the  jacks  in  the  back  of  the  load  cell  panel  and 
record  the  readings.  These  readings  will  be  a  quick 
check  for  load  cell  calibration  when  necessary. 
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B.  SECONDARY  (QUICK  CHECK)  METHOD 

1.  Apply  power  to  the  load  cell  panel  and  the 
individual  DVMs.  After  a  sufficient  warm-up,  set  zeros 
using  the  bridge  balances. 

2.  Place  the  calibration  shunt  resistor  across  the 
jacks  in  the  back  of  the  load  cell  panel.  Compare  the 
reading  against  the  last  calibration  run  in  the  load 
machine.  If  the  reading  is  off  by  more  than  10  lbf., 
adjust  the  amplifier  power  supply  as  in  the  method 
described  in  the  preferred  calibration  procedure. 

3.  Last  calibration: 

LOAD  CELL  1  LOAD  CELL  2  LOAD  CELL  3  DATE 

-1267  -1226  -1256  20/08/86 


APPENDIX  C 


LOADING  FRAME  STABILITY  ANALYSIS 
A.  TEST 

The  stability  test  on  the  loading  frame  was  done  with 
the  use  of  a  manila  rope,  dynnamometer  and  a  come-along. 

One  end  of  the  rope  was  attached  to  the  frame's  cross  beam, 
the  other  to  the  opposite  wall  so  as  to  place  the  load  axis 
perpendicular  to  the  vertical  support,  Figure  3.C. 
Deflections  were  measured  with  a  plumb  bob  attached  to  the 
cross  member. 


TABLE  I.C  STABILITY  ANALYSIS  DATA 


(lb) 

Moment  (in-lb) 

Deflection  (in) 

Anqle  (rad) 

0 

0 

0.0 

0.0 

50 

2600 

0.07 

0.0013462 

100 

5200 

0.17 

0.0032692 

145 

7540 

0.27 

0.0051923 

185 

9620 

0.37 

0.0071153 

242 

12584 

0.42 

0.0080768 

312 

16224 

0.63 

0.0121148 

345 

17940 

0.67 

0.0128839 

395 

20540 

0.82 

0.0157679 

435 

22620 

0.97 

0.0186539 

485 

25220 

1.14 

0.0232919 

500 

26000 

1.25 

0.0240338 

525 

27300 

1.33 

0.0255714 

555 

28860 

1.42 

0.0273009 

B.  Simplified  Model 

In  determining  the  critical  load  for  the  loading  frame, 
the  following  simplifying  assumptions  were  made: 

-  The  complete  frame  was  reduced  to  a  single  column. 

-  The  single  column  was  a  rigid  body. 

-  Loading  on  the  column  was  precisely  vertical . 

-  The  vertical  load  was  concentric  on  the  column. 

-  All  resistance  to  torsional  load  deformation  was  reduced 
to  a  torsional  spring  located  at  the  base  of  the  column. 
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18,518  lbf 


Figure  l.C  Simplified  Load  Frame  Model 

Figure  2.C  contains  the  plotted  data  from  the  deflection 
test.  After  a  linear  regression  of  that  data,  a  best-fit 
value  for  the  slope  K,  the  torsional  spring  constant,  was 
calculated  to  be  962,936  in-lb.  Utilizing  energy  methods  or 
the  simple  statics  approach  found  in  Beer  &  Johnston, 
Mechanics  of  Materials.  Sections  11.1  -  11.3,  the  value  of 
critical  load  Per,  was  determined  to  be  18,518  lb. 

The  value  for  critical  load  based  on  the  simplifying 
assumptions  exceeds  the  operational  load  limit  by  nearly  ten 
times.  It  is  judged  that  even  upon  given  allowances  to  the 
simplified  calculations,  a  significant  margin  of  safety  is 
inherent  in  this  set-up. 


Figure  2.C  Plotted  Test  Data 
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APPENDIX  D 


Program  Listing  for  P2V.CAL.  P2V-L0AD  and  ANAL. EXE 


1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 


'James  J.  Miller  THESIS  PROJECT 

'  LCDR  USN 

I 

'Advisor: 

•Prof.  Edward  M.  WU 

i 

'*****  STRAIN  GAGE  CALIBRATION  PROGRAM  ***** 

i 

******  VARIABLE  LISTING  ***** 

• 

•A  -  Decision  variable,  main  menu 
'ADD(  )  -  Array  containing  open  slots  on  the 
strain  gage  panel 

'ASTRN(  )  -  Actual  DVM  strain  reading 
' A$  -  Yes/No  decision  input  varible 
' BDNAME$  -  GPIB  variable  device  name 
'B#  -  DVM  reading  converted  from  string 
variable 
'C  -  Counter 

'  CF (  )  -  Correction  factor  for  the  gage 
connected  to  the  DVM 
'C#  -  Counter 

'C%  -  Screen  graphics  flag  used  to  determine 
a  previous  pass  at  this  statement 
' D (  )  -  Dummy  array  used  to  temporarily 
store  strain  gage  resistance  updates 
'D(  ,  )  -  Matrix  used  to  store  all  DVM 
readings 

'DEX  -  Element  deformation  X  deflection 
'DEY  -  Element  deformation  Y  deflection 
'DG#  -  Strain  gage  number  being  deleted 
' DVM%  -  GPIB  device  status  variable 
'D$  -  Today's  date 

'Dl$  -  Date  of  last  strain  gage  resistance 
update 

'E  -  GPIB  error  indicator 
'EMAX  -  Maximun  strain 
'EMIN  -  Minimum  strain 

'ESTRN(  )  -  Expected  strain  reading  based  on 
shunt  resistance 

'ESI  -  Intermediate  strain  calculation 
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1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 


17-86  16:12:14  c:p2v-cal .bas 
17-86  16:13:02 


variable 

'EX  -  Strain  in  the  X  direction 
'EY  -  Strain  in  the  Y  direction 
'F$  -  Analyze  flag 

'G(  )  -  Gage  number  associated  with  a  DVM 
'GAGE  -  Lead  gage  number  for  the  rosette 
being  analyzed 

'GF  -  Gage  factor  for  the  analyze  rosette  data 
'GF(  )  -  Gage  factor  of  a  gage 
'GLE  -  Element  deformation  angle  of  strain 
deformation 

'GMAX  -  Maximun  shear  strain 

'GN1-GN4  -  Lead  gage  number  of  rosette  which 
can  be  analyzed 
'GXY  -  Gama  XY,  shear  strain 
' G$  -  Single  element  A-3  type  gage  flag 
'  I  -  Counter 

'  IBSTA%  -  GPIB  device  error  variable 
'IC  -  Box  print,  interior  color 
'J  -  Counter  //  Box  print,  upper  left 
corner,  row  number 

'K  -  Counter  //  Box  print,  upper  left 
corner,  column  number 
'L  -  Box  print,  horizontal  length 
' LFLAG  -  Temporary  storage  for  NFLAG 
'M  -  Box  print,  vertical  length  //  Integer 
decision  variable 

'MSG#  -  Master  strain  gage  number  connected 
to  DVM1 

'M$  -  Input  variable  for  analyze  data  of 
rosettes 
'N  -  Counter 

'NFLAG  -  Flag  variable  used  to  determine  if 
the  display  feature  had  been  used 
'NG#  -  Gage  number  being  added 
' NSTOP  -  While  loop  termination  flag 
'N$  -  Name  of  person  currently  updating 
resistance  readings 
' Nl$  -  Name  of  last  person  to  update 
resistance  readings 
'PHIP  -  Angle  of  principle  direction 
' PGXY  -  Mohr's  circle  pixel  position  for  shear 
' PEX  -  Mohr's  circle  pixel  position  for 
strain  in  X 

'PEY  -  Mohr's  circle  pixel  position  for 
strain  in  Y 
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1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 


1970 
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'R  -  Mohr’s  circle  radius 

' R (  )  -  Resistance  of  a  gage  CAL  program  // 
Average  of  five  DVM  readings  LOAD  program 
'RD$  -  GPIB  string  variable  holding  the  DVM 
reading 

' RESULTS (  )  -  Corrected  readings  from  the  DVMs 
' RPG#  -  Gage  number  being  replaced 
'RR(  )  -  Resistance  of  a  gage  LOAD  program 
'R#  -  Strain  gage  resistance 
'S  -  DVM  reading  summary  variable 
'SG#  -  Strain  gage  number  being  modified 
•SF  -  Display  file  gage  factor 
'SMULT  -  Isotropic  strain  multiplier 
'T  -  Timer  loop  variable 
'TX  -  Timer  loop  variable 
' WRT$  -  GPIB  command  string  variable 
'XLOAD  -  Load  on  the  wing 
' XIS  -  Mohr's  circle  X  axis  movement  in 
pixels  from  center 

'XSLP  -  Element  deformation  slope  of  the 
horizontal  lines 

'XI  -  Element  deformation  pixel  position 
' X2  -  Element  deformation  pixel  position 
'Y  -  Flag  for  determining  if  program 
previously  executed  this  line 
' YSLP  -  Element  deformation  slope  of  the 
vertical  lines 

' Y1  -  Element  deformation  pixel  position 
'Y2  -  Element  deformation  pixel  position 
'Z$  -  Input  dummy  variable 

i 

REM  MAIN  PROGRAM  -  GPIB-PC  HANDLER  STATEMENTS 

i 

CLEAR  ,59300! 

IBINIT1  =  59300! 

IBINIT2  =  IBINIT1  +  3 
BLOAD  "bib.m" , IBINIT1 

CALL  IBINIT1 (IBFIND, IBTRG, IBCLR, IBPCT, IBSIC, IBLOC, 
IBPPC, IBBNA, IBONL, IBRSC, IBSRE, IBRSV, IBPAD , 

IBS AD, I BIST , IBDMA , I BEOS , IBTMO , IBEOT , IBRDF , 
IBWRTF) 

CALL  IBINIT2 ( IBGTS , IBCAC , IBWAIT , IBPOKE , IBWRT , 

IBWRTA, IBCMD, IBCMDA, IBRD, IBRDA, IBSTOP, IBRPP, 
IBRSP , IBDIAG , IBXTRC , IBRDI , IBWRTI , IBRDIA , 

IBWRTIA, IBSTA% , IBERR% , IBCNT% ) 
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1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 
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REM  MAIN  PROGRAM  -  INITIAL  ASSIGNMENTS, 
DIMENSIONS 

t 

KEY  OFF 

DIM  D ( 150 ) ,  R( 150) ,  GF(150),  RESULTS(12),  CF(12), 
ESTRN ( 12 ) ,  ASTRN ( 12 ) ,  G(12),  ADD(50) 

PRINT  "~L=BACKKEY/" 

PRINT  " ~K={ BACK } , KEYFIX , NOESC , NOMOVE/" 

i 

REM  MAIN  PROGRAM  -  COVER  SHEET  PRINT  TO  SCREEN 

i 

COLOR  5,0: SCREEN  0,1, 1,1 
CLS 

K=5 : J=5 : L=70 :M=15 : GOSUB  3040 
COLOR  3 

LOCATE  9, 39: PRINT  "P2V" 

LOCATE  12, 35: PRINT  "CALIBRATION" 

LOCATE  15, 37: PRINT  "PROGRAM" 

COLOR  7 : LOCATE  19,25:PRINT  "By:  LCDR  J.  J.  Miller, 
SEPT  86" 

COLOR  23 

LOCATE  2 3, 36: PRINT  "STAND  BY" 

REM  MAIN  PROGRAM  -  SELECTION  PAGE  PRINT  TO 
SCREEN 

i 

SCREEN  0,1, 3,1: COLOR  2  7 . 0  *  Cl S : LOCATE  13,36: 

PRINT  "STANDBY" 

SCREEN  0,1, 0,1: COLOR  0 , 7 : CLS : COLOR  4,3 
K=7:J=10:L=60:M=14 : IC=3 : GOSUB  3040 
COLOR  0,3: LOCATE  10, 16: PRINT  "Select:" 

LOCATE  12, 22: PRINT  "(1)  Update  strain  gage 
resistances . " 

LOCATE  13, 22: PRINT  "(2)  Calculate  strain  gage 
calibration  factors  " 

LOCATE  14, 26: PRINT  "by  a  shunt  resistance 
measurement. " 

LOCATE  17, 22: PRINT  "(5)  Add/Delete/Replace  strain 
gages . " 

LOCATE  15, 22: PRINT  "(3)  Load  the  wing." 

LOCATE  18, 22: PRINT  "(6)  Exit  (Return  to  DOS) 

LOCATE  16, 22: PRINT  "(4)  Analyse  last  recorded  load 
data . " 

SCREEN  0, 1, 1, 1: COLOR  7,0: CLS 
SCREEN  0, 1, 0, 0: COLOR  0,3 
LOCATE  19, 11: INPUT  "",A 
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2350  IF  A=3  THEN  CHAIN  "P2V-L0AD" 

2360  IF  A<>4  GOTO  2450 

2370  F$  =  "Y"  'Analyse  Flag  only  set 

2380  OPEN  "DISPLAY . DAT"  FOR  INPUT  AS  #1 
2390  INPUT  #1,  SF,  XLOAD 

2400  IF  SF=2 . 09  THEN  INPUT  #1,  GN1 , GN2 , GN3 , GN4 , GAGE 
ELSE  INPUT  #1,  GN1 , GN2 , GN3 , GAGE 
2410  FOR  1=1  TO  12 : INPUT  #1,  RESULTS(I),  G(I):NEXT  I 
2420  CLOSE  #1 
2430  GF (G ( 1) ) =SF 
2440  CHAIN  "P2V-LOAD" , 4 3 10 , ALL 

2450  IF  A=1 !  THEN  GOSUB  3580  ELSE  IF  A=2 !  THEN  GOSUB 

4790  ELSE  IF  A=5!  THEN  GOSUB  6940  ELSE  IF  A=6 ! 
THEN  COLOR  7 , 0 : CLS : SYSTEM  ELSE  COLOR  0,3: 
LOCATE  19, 32: SOUND  1000,2: PRINT  "Enter 
1,2, 3, 4, 5  or  6 . " : GOTO  2340 

2460  ' 

2470  REM  MAIN  PROGRAM  -  READ  PREVIOUS  STRAIN  GAGE 

DATA  FROM  FILE 

2480  ' 

2490  OPEN  "STRAIN. DAT"  FOR  INPUT  AS  #1 
2500  INPUT  # 1 , Dl$ , Nl$ 

2510  FOR  N=1  TO  150 

2520  INPUT  #1 , I , R (N) , GF (N) 

2530  IF  D (N)  =  0  GOTO  2550 

2540  R (N)  =  D (N) 

2550  NEXT  N 
2560  CLOSE  #1 
2570  ' 

2580  REM  MAIN  PROGRAM  -  WRITE  REVISED  STRAIN  GAGE 

DATA  TO  FILE 

2590  ' 

2600  OPEN  "STRAIN. DAT"  FOR  OUTPUT  AS  #1 
2610  WRITE  #1 , D$ , N$ 

2620  FOR  N=1  TO  150 

2630  WRITE  # 1 , N , R (N) , GF (N) 

2640  NEXT  N 
2650  CLOSE  #1 
2660  ' 

2670  REM  MAIN  PROGRAM  -  HARD  COPY  SELECTION  PRINT 

TO  SCREEN 

2680  ' 

2690  SCREEN  0,1, 0,3 

2700  COLOR  3,1: CLS : COLOR  4,7 

2710  K=10 : J=10 : L=60 : M=6 : IC=7 : GOSUB  3040 

2720  COLOR  0 , 7 : LOCATE  12,20:PRINT  "Do  you  want  a  hard 
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2730 

2740 

2750 

2760 

2770 

2780 

2790 

2800 

2810 

2820 

2830 

2840 

2850 

2860 

2870 

2880 

2890 

2900 

2910 

2920 

2930 

2940 

2950 

2960 

2970 

2980 

2990 

3000 

3010 

3020 

3030 

3040 

3050 


3060 

3070 

3080 

3090 
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copy  of  all  strain  gage" 

LOCATE  14, 20: PRINT  "resistances  and  gage  factors? 
(Y/N) " 

SCREEN  0,1, 0,0 

LOCATE  14, 57: INPUT  "",A$ 

IF  A$="N"  OR  A$="n"  THEN  COLOR  7:CLS:GOTO  2080 
IF  A$<>"y"  AND  A$<>" Y"  GOTO  2750 
SCREEN  0,1, 3, 3 
GOSUB  3370 

SCREEN  0,1, 0,0: COLOR  7 , 0 : CLS 
GOTO  2080 

REM  MAIN  PROGRAM  -  PROGRAM  RUN  END 

f 

COLOR  7: CLS: END 

i 

REM  SUBPROGRAM  -  PRINT  A  ROW  TO  SCREEN 
(K-START,  J-END,  L-ROW) 

FOR  I-K+l  TO  J-l 
LOCATE  L, I 
PRINT  CHR$ (205) 

NEXT  I 

LOCATE  L, K: PRINT  CHR$ ( 204 ): LOCATE  L,J:PRINT 
CHR$ (185) 

RETURN 

i 

REM  SUBPROGRAM  -  PRINT  A  COLUMN  TO  SCREEN 
(K-START,  J-END,  L-COLUMN) 

i 

FOR  I-K+l  TO  J-l 
LOCATE  I , L 
PRINT  CHR$ (186) 

NEXT  I 

LOCATE  K,L: PRINT  CHR$ (203 ): LOCATE  J,L: PRINT 
CHR$ (202) 

RETURN 

i 

REM  SUBPROGRAM  -  PRINT  A  BOX  TO  SCREEN 
(K, J-UPPERLEFT  CORNER,  L-LENGTH, 

M-HEIGHT ,  IC-INTERIOR  COLOR. . 
DEFAULT  BLACK  0) 

i 

LOCATE  K,J: PRINT  CHR$(201) 

FOR  I-J+l  TO  J+ ( L-l ) 

LOCATE  K , I 
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3120 

3130 

3140 

3150 

3160 

3170 

3180 
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3200 

3210 

3220 

3230 

3240 

3250 

3260 

3270 

3280 

3290 

3300 

3310 

3320 

3330 

3340 

3350 

3360 

3370 

3380 

3390 

3400 

3410 

3420 

3430 

3440 

3450 

3460 
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PRINT  CHR$ (205) 

NEXT  I 

LOCATE  K,J+L: PRINT  CHR$(187) 

FOR  I=K+1  TO  K+ (M-l) 

LOCATE  I,J 
PRINT  CHR$ (186) 

NEXT  I 

LOCATE  K+M, J: PRINT  CHR$(200) 

FOR  I=J+1  TO  J+ (L-l) 

LOCATE  K+M, I 
PRINT  CHR$ ( 205 ) 

NEXT  I 

LOCATE  K+M, J+L: PRINT  CHR$(188) 

FOR  I=K+1  TO  K+ (M-l ) 

LOCATE  I , L+ J 
PRINT  CHR$ (186) 

NEXT  I 

IF  IC=0  GOTO  3360 
COLOR  IC 

FOR  I=K+1  TO  K+M-l 

FOR  N=J+1  TO  J+L-l 

LOCATE  I ,N: PRINT  CHR$(219) 

NEXT  N 
NEXT  I 
COLOR  7,0 
IC=0 
RETURN 

i 

REM  SUBPROGRAM  -  PRINTS  TO  THE  PRINTER  A  TABLE 
OF  STRAIN  GAGE  DATA 

i 

FOR  1=1  TO  79 : LPRINT  TAB ( I ) ? CHR$ ( 95 ) ; : NEXT  I 
LPRINT  TAB ( 1) ;CHR$(124) ;TAB(79) ;CHR$(124) 

LPRINT  TAB(l) ;CHR$(124) ;TAB(25) ; "STRAIN  GAGE 
RESISTANCE  SUMMARY" ? TAB (79) ;CHR$(124) 

LPRINT  CHR$ (124) ; : FOR  1=2  TO  78: LPRINT  TAB (I); 

CHR$ (246) ;: NEXT  I: LPRINT  CHR$(124) 

LPRINT  TAB(l) ;CHR$(124) ;TAB(3) ;"LAST  ENTRY  -  DATE: 

" ; D$ ;TAB (40) ; "NAME :  ";N$;TAB(79) ;CHR$(124) 

LPRINT  CHR$ (124) ; : FOR  1=2  TO  78:LPRINT  TAB ( I )  ; 

CHR$ (246) ;: NEXT  I : LPRINT  CHR$(124) 

LPRINT  TAB(l)  ;CHR$(124)  GAGE  #  OHMS  GF 

" ; CHR$ (124) ; "  GAGE  #  OHMS  GF 

CHR$ ( 124 ) ; "  GAGE  #  OHMS  GF  ";CHR$(124) 

LPRINT  TAB ( 1 ) ; CHR$ (124) ; : FOR  1=2  TO  78: LPRINT 
TAB ( I ) ; CHR$ (246) ;  : NEXT  I:LPRINT  CHR$(124) 
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FOR  J=1  TO  45 

LPRINT  TAB ( 1) ;CHR$(124) ;TAB(3) ;J;TAB(11) ;R(J) ; 
TAB (21)  ;GF (J)  ?  TAB (27)  ;CHR$(124)  ;TAB(29)  ; 

J+50 ;TAB ( 37 ) ;R(J+50) ;TAB(47) ;GF(J+50) ? 

TAB ( 53 ) ; CHR$ (124) ?TAB(55)  ? J+100 ; TAB ( 6 3 ) ; 

R ( J+100 ) ; TAB (73) ;GF(J+100) ?TAB(79) ;CHR$(124) 

NEXT  J 

LPRINT  TAB ( 1) ;CHR$(124) ;TAB(4) ; "46" ;TAB ( 11) ;R(46) ; 
TAB (21) ;GF (46) ; TAB (27) ;CHR$(124) ;TAB(30) ;"96"; 
TAB (37)  ; R ( 9  6 )  ;TAB(47)  ;GF(96)  ;TAB(53)  ;CHR$(124)  ; 
TAB ( 57 ) ; "CALIBRATION  GAGES" ;TAB (79) ;CHR$(124) 
LPRINT  TAB (1) ;CHR$(124) ;TAB(4) ; "47 » ; TAB ( 11 ) ;R(47) ; 
TAB (21) ; GF (47 ) ;TAB(27) ;CHR$(124) ;TAB(30) ;"97"; 
TAB ( 37 )  ; R ( 9  7 )  ;TAB(47)  ;GF(97)  ;TAB(53)  ;CHR$(124)  ; 
TAB ( 55 ) ; " E A- 13"; TAB (63) ;R(147) ;TAB(73) ;GF(147) ; 
TAB (79) ;CHR$ (124) 

LPRINT  TAB ( 1) ;CHR$(124) ;TAB(4) ; "48" ;TAB ( 11) ;R(48) ; 
TAB (21)  ; GF ( 4 8 )  ;TAB(27)  ;CHR$ (124)  ; TAB (30)  ;  "98"  ; 
TAB (37)  ; R ( 9  8 )  ;TAB(47)  ;GF(98)  ;TAB(53)  ;CHR$ (124)  ; 
TAB (56) ,* "A- 3" ;TAB ( 63 ) ;R(148) ?TAB(73) ;GF(148) ; 
TAB (79) ;CHR$ (124) 

LPRINT  TAB ( 1) ;CHR$(124) ;TAB(4) ;"49" ;TAB(11) ;R(49) ; 
TAB (21)  ; GF ( 4 9 )  ?TAB(27)  ;CHR$(124)  ;TAB(30)  ;"99"; 
TAB ( 37 )  ; R ( 9  9 )  ;TAB(47)  ;GF(99)  ?TAB(53)  ;CHR$(124)  ; 
TAB (55) ; "AR7-2" ;TAB( 63 ) ;R(149) ;TAB(73) ;GF(149) ; 
TAB ( 79 ) ;CHR$ (124) 

LPRINT  TAB ( 1 ) ;CHR$(124) ;TAB(4) ; "50" ?TAB ( 11) ;R(50) ; 
TAB (21) ;GF (50) ;TAB(27) ;CHR$ (124) ;TAB(29) ; "100" ; 
TAB (37)  ; R ( 1 0  0 )  ;TAB(47)  ;GF(100)  ;TAB(53)  ; 

CHR$ (124) ; TAB (55) ;"WA-13" ;TAB(63) ;R(150) ; 

TAB (73) ;GF ( 150) ;TAB(79) ;CHR$(124) 

FOR  1=1  TO  79  :  LPRINT  TAB  (I)  ;CHR$  (176)  ;  .'NEXT  Is 
LPRINT  CHR$ (244) 

RETURN 

I 

REM  SUBPROGRAM  -  UPDATE  STRAIN  GAGE  RESISTANCES 

i 

'Name  entry  screen 
D$  »  DATE$ 

SCREEN  0, 1, 0, 0: COLOR  7 , 0 : CLS : COLOR  15,0 
COLOR  4,0:  LOCATE  1,23 -.PRINT  "STRAIN  GAGE 
RESISTANCE  MEASUREMENT" 

COLOR  4,0: LOCATE  1,23: PRINT  "STRAIN  GAGE 
RESISTANCE  MEASUREMENT" 

LOCATE  5,30 

PRINT  "Enter  operator's  name." 
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3680  COLOR  4 , 7 : K=12 : J=3 0 : L=2 0 : M=2 : IC=7 : GOSUB  3050 
3690  LOCATE  13, 32: COLOR  0,7 
3700  INPUT  " " , N$ 

3710  ' 

3720  'Instruction  page  for  reading  resistances  on  DVM 
1  print  to  screen 
3730  SCREEN  0,1, 0,3 
3740  COLOR  7 , 11 : CLS : COLOR  4,7 
3750  K=3:J=33:L=14:M=3:IC=7: GOSUB  3040 

3760  COLOR  1,7: LOCATE  4, 35: PRINT  "RESISTANCE" 

3770  LOCATE  5, 35: PRINT  "MEASUREMENT" 

3780  COLOR  15,0:LOCATE  9 , 5 : PRINT  CHR$ ( 2 19 ) ; : COLOR  5,11: 

PRINT  "  ONLY";: COLOR  0 : PRINT  "  DVM  1  will  be 
used  for  all  resistance  measurements." 

3790  LOCATE  11, 5: COLOR  26, 11: PRINT  CHR$(219);: 

COLOR  0,11: PRINT  "  Ensure  DVM  1  is  set  up  as 
follows : " 

3800  LOCATE  13, 28: PRINT  "1.  Power  Button  -  ON." 

3810  LOCATE  14, 28: PRINT  "2.  Input  Button  -  FRONT." 

3820  LOCATE  16,5:COLOR  28, 11: PRINT  CHR$(219);: 

COLOR  0,11: PRINT  "  Connect  the  two-wire  test 
leads  to  the  front  of  the  meter." 

3830  COLOR  15,0: LOCATE  20, 29: PRINT  "  SPACEBAR  to 
continue  " 

3840  SCREEN  0, 1,0,0 
3850  Z$  =  INKEY$ 

3860  IF  Z$  <>  CHR$ ( 32 )  GOTO  3850 
3870  ' 

3880  'Input  strain  gage  to  be  read  page  print  to  screen 
3890  COLOR  7 , 0 : CLS : SCREEN  0 , 1 , 0 , 3 : CLS : COLOR  4,7 
3900  K=6:J=10:L=60:M=10: IC=7 : GOSUB  3040 

3910  COLOR  4,7 

3920  K=10 : J=70 : L=ll : GOSUB  2860 

3930  COLOR  4 , 0 : LOCATE  1,23: PRINT  "STRAIN  GAGE 
RESISTANCE  MEASUREMENT" 

3940  COLOR  1,7 

3950  LOCATE  8, 11: PRINT  "  When  the  strain  gage  is 

properly  connected  " 

3960  LOCATE  9, 11: PRINT  "  to  DVM1,  enter  strain 

gage  number  and  <CR>.  " 

3970  COLOR  5 , 7 : LOCATE  13, 11: PRINT  "  NOTE: 

A  resistance  measurement  will  be  taken  " 

3980  LOCATE  14, 11: PRINT  »  using  DVM1  immediately 

following  <CR>.  " 

3990  COLOR  15,0: LOCATE  21, 22: PRINT  "Enter  0  to  end  and 
return  to  the  menu." 


*.  _-N.  %  **  WN  *%  ■ .  ' 
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4000  SCREEN  0,1, 0,0 

4010  COLOR  7: LOCATE  23,1: PRINT  "Enter  strain  gage 
number :  " : LOCATE  23,28 

4020  INPUT  " " , SG# 

4030  IF  SGfoO  THEN  GOTO  4140 

4040  SCREEN  0 , 1 , 0 , 3 : COLOR  1 , 7 : CLS : LOCATE  11,5 
4050  COLOR  26,7: PRINT  CHR$ ( 2 19 ) ; : CcLOR  0,7:PRINT  " 

Ensure  DVM  1  is  returned  to  the  following:" 

4060  LOCATE  13, 28: PRINT  "1.  Power  Button  -  cycle  OFF 
then  ON . " 

4070  LOCATE  14, 28: PRINT  "2.  Input  Button  -  REAR." 

4080  LOCATE  15, 28: PRINT  "3.  Remove  the  two  wire  test 
leads. " 

4090  COLOR  15,0: LOCATE  20, 29: PRINT  »  SPACEBAR  to 
continue  " 

4100  SCREEN  0,1, 0,0 
4110  Z$  =  INKEY $ 

4120  IF  Z$  <>  CHR$ ( 32 )  GOTO  4110 

4130  SCREEN  0 , 1 , 0 , 0 : COLOR  2 8 , 0 : CLS : LOCATE  13,36: 

PRINT  "STANDBY": COLOR  7: RETURN 
4140  SCREEN  0,1,0,0:CLS 

4150  COLOR  28, 0: CLS: LOCATE  13, 36: PRINT  "STAND  BY" 

4160  GOSUB  4350 
4170  ' 

4180  'Display  resistance  measurement  page  print  to 
screen 

4190  CLS 

4200  COLOR  3 : K=ll : J=10 : L=60 :M=4 : GOSUB  3040 
4210  K=ll: J=15:L=40: GOSUB  2960 

4220  COLOR  7 : LOCATE  13,15:PRINT  "STRAIN  GAGE  ";SG# 

4230  LOCATE  13, 45: PRINT  "RESISTANCE  =  " ;R# ;CHR$ (234) 

4240  LOCATE  20, 10: PRINT  "Enter:  (Y) -Measurement  is 

acceptable,  (approx.  118.5-123.5  " ;CHR$ (234 ) ? " ) " 
4250  LOCATE  21, 10: PRINT  "  (N) -Cancel  the  reading." 

4260  LOCATE  23,1: COLOR  4 : INPUT  "NOTE:  A  (Y)  entry  will 
file  the  measurement" ;A$ 

4270  IF  A$="N"  OR  A$="n"  THEN  COLOR  7 , 0 : CLS : GOTO  3880 
4280  IF  A$<>" Y"  AND  A$o"y"  THEN  PRINT  "Enter  Y  or  N.": 

GOTO  4260 
4290  D (SG# ) =R# 

4300  SCREEN  0 , 1 , 2 , 2 : COLOR  9:CLS 

4310  K=11:J=29:L=23:M=4: GOSUB  3040 

4320  COLOR  15: LOCATE  13, 34: PRINT  "DATA  RECORDED" 

4330  FOR  1=1  TO  100:  J=J+I:NEXT  I  'Program  delay 
4340  GOTO  3880 
4350  ' 
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4360 

4370 

4380 

4390 

4400 

4410 

4420 

4430 

4440 

4450 

4460 

4470 

4480 

4490 

4500 

4510 

4520 

4530 

4540 

4550 

4560 

4570 

4580 

4590 

4600 

4610 

4620 

4630 

4640 

4650 

4660 

4670 

4680 

4690 

4700 

4710 

4720 

4730 

4740 

4750 

4760 

4770 

4780 

4790 


REM  SUBPROGRAM  -  READ  RESISTANCE  FROM  DVM1 

I 

BDNAME$  =  "DVM1" 

CALL  IBFIND  ( BDNAME$ , DVM% ) 

IF  DVM%  <  0  THEN  GOSUB  4590 
CALL  IBCLR  (DVM%) 

IF  IBSTA%  <  0  THEN  GOSUB  4700 
WRT$  =  "F3R0" 

CALL  IBWRT  (DVM%,WRT$) 

IF  IBSTA%  <  0  THEN  GOSUB  4700 

J=0 : FOR  1=1  TO  500: J-J+I: NEXT  I  'Program  delay 
RD$  =  SPACE$ (16) 

CALL  IBRD  ( DVM% , RD$ ) 

IF  IBSTA%  <  0  THEN  GOSUB  4700 
R#=VAL(RD$) 

RETURN 

i 

REM  SUBPROGRAM  -  GPIB-PC  ERROR  STATEMENTS 

i 

'A  routine  at  this  location  would  notify 
'you  that  the  IBFIND  call  failed,  and 
'refer  you  to  the  handler  software 
'configuration  procedures. 

PRINT  "IBFIND  ERROR"  :  PRINT  "E=  ";E:  END 

t 

'An  error  checking  routine  at  this 
'location  would,  among  other  things, 

'check  IBERR  to  determine  the  exact 
'cause  of  the  error  condition  and  then 
'take  action  appropriate  to  the 
'application.  For  errors  during  data 
'transfers,  IBCNT  may  be  examined  to 
'determine  the  actual  number  of  bytes 
'transferred. 

PRINT  "GPIB  ERROR"  :  PRINT  "E=";E:  END 

i 

'A  routine  at  this  location  would  analyze 
'the  fault  code  returned  in  the  DVM's 
'status  byte  and  take  appropriate  action. 
PRINT  "DVM  ERROR"  :  PRINT  "E=  ";E:  END 


REM  SUBPROGRAM  -  CALCULATE  STRAIN  GAGE 
CALIBRATION  DATA 
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4810  SCREEN  ,,2,3 

4820  'Print  to  screen  CALIBRATION  cover  page 
4830  COLOR  0,1:CLS 
4840  COLOR  1,7 

4850  K=10 : J=26 : L=28 :M=6 : IC=7 : GOSUB  3040 

4860  COLOR  4 , 7 : LOCATE  11,32: PRINT  "CORRECTION  FACTOR" 

4870  LOCATE  13, 35: PRINT  "CALCULATION" 

4880  LOCATE  15, 37: PRINT  "PROGRAM" 

4890  COLOR  31,1: LOCATE  20,37:PRINT  "STAND  BY" 

4900  * 

4910  'Construct  the  table  of  strain  gage  calibration 
data 

4920  SCREEN  0 , 1 , 0 , 2 : COLOR  3,0:CLS 

4930  K=1 : J=2 : L=77 : M=2 0 : IC=0 : GOSUB  3040 

4940  K=2:J=79:L=3: GOSUB  2870 

4950  L=5 : GOSUB  2870 

4960  K=3 :J=21:L=12 : GOSUB  2960 

4970  L=2 1 : GOSUB  2960 

4980  L=3 0 : GOSUB  2960 

4990  L=42 : GOSUB  2960 

5000  L=55 : GOSUB  2960 

5010  L=66 : GOSUB  2960 

5020  LOCATE  5, 12: PRINT  CHR$(206) 

5030  LOCATE  5, 21: PRINT  CHR$(206) 

5040  LOCATE  5, 30: PRINT  CHR$(206) 

5050  LOCATE  5, 42: PRINT  CHR$(206) 

5060  LOCATE  5, 55: PRINT  CHR$(206) 

5070  LOCATE  5, 66: PRINT  CHR$(206) 

5080  COLOR  15: LOCATE  2 , 19 : PRINT  "STRAIN  GAGE 

CALIBRATION  DATA  (strain-" ;CHR$ (230) ; "  in/in)" 
5090  COLOR  11: LOCATE  4 , 5 : PRINT  "METER" : LOCATE  4,15: 

PRINT  "GAGE" : LOCATE  4, 24: PRINT  "G.F." 

5100  LOCATE  4,36:PRINT  CHR$ ( 2 34 ) : LOCATE  4,46: 

PRINT  CHR$ (238) (expt) " 

5110  LOCATE  4,58: PRINT  CHR$ ( 2 38 ) ; " (act ) " : LOCATE  4,71: 

PRINT  " C . F . " 

5120  COLOR  9 : N=1 

5130  FOR  J=6  TO  18  STEP  4 

5140  LOCATE  J,5:PRINT  "DVM  "?:PRINT  USING  "##";N 

5150  LOCATE  J+1,5:PRINT  "DVM  ";:PRINT  USING  "##";N+1 

5160  LOCATE  J+2,5:PRINT  "DVM  PRINT  USING  "##";N+2 

5170  N=N+3 

5180  NEXT  J 
5190  ' 

5200  'Read  the  strain  gage  resistance  data  and  gage 
factors  from  "STRAIN . DAT" 
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5210  OPEN  "STRAIN.DAT"  FOR  INPUT  AS  #1 
5220  INPUT  #1,D1$,N1$ 

5230  FOR  N=1  TO  150 

5240  INPUT  #1 , I , R ( I) , GF ( I ) 

5250  NEXT  N 
5260  CLOSE  #1 
5270  ' 

5280  'Prompt  for  strain  gages  connected  to  the 
respective  DVMs  then  print  the 
5290  'data  in  the  sppropriate  location  in  the 
calibration  data  table 
5300  SCREEN  0, 1,2,2 
5310  COLOR  7,0: CLS 
5320  SCREEN  0,1,0,0:Y=0 
5330  FOR  N=1  TO  12 

5340  COLOR  0 , 0 : LOCATE  22, 10: PRINT  " 


5350 

5360 

5370 

5380 

5390 

5400 

5410 

5420 


5430 


5440 

5450 

5460 

5470 

5480 

5490 

5500 

5510 


COLOR  15: LOCATE  23, 21: PRINT  "Enter  strain  gage 
#  connected  to  DVM  ";N 

M=0 

IF  N>3  THEN  M=1 
IF  N>6  THEN  M=2 
IF  N>9  THEN  M=3 

COLOR  7 : LOCATE  5+N+M, 15 : PRINT  CHR$(219); 

CHR$ (219) ;CHR$ (219) 

LOCATE  5+N+M, 15: COLOR  0,7: INPUT  "",SG# 

IF  SG#<1  OR  SG#>146  THEN  SOUND  1000,18: 

LOCATE  22, 10: COLOR  31,0: PRINT  "STRAIN  GAGE 
" ;SG# ; "  IS  INOPERATIVE  OR  NOT  INSTALLED. 
SELECT  ANOTHER. ": COLOR  15,0:GOTO  5400 
IF  R ( SG# ) =0  THEN  SOUND  1000 , 18 : LOCATE  22,10: 
COLOR  31,0: PRINT  "STRAIN  GAGE  ";SG#; 

"  IS  INOPERATIVE  OR  NOT  INSTALLED.  SELECT 
ANOTHER. ": COLOR  15,0: GOTO  5400 
G (N) =SG# 

LOCATE  5+N+M, 15: COLOR  7,0:PRINT  USING  "###";SG# 
LOCATE  5+N+M, 24 : PRINT  USING  GF (SG# ) 

LOCATE  5+N+M, 33: PRINT  USING  "###.###»; R(SG#) 
ESTRN (N)=(R(SG#)/( GF (SG#) *(59872. 5+R ( SG# ) ) )* 
1000000! ) 

IF  N=1  THEN  MSG#=SG# 

LOCATE  5+M+N, 45: PRINT  USING  "####.###"; 

ESTRN (N) : IF  Y=1  GOTO  5530 

NEXT  N 
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5530 

5540 

5550 


5560 

5570 

5580 

5590 

5600 

5610 

5620 

5630 

5640 

5650 

5660 

5670 

5680 


5690 

5700 

5710 

5720 

5730 

5740 

5750 

5760 

5770 

5780 

5790 

5800 

5810 

5820 

5830 

5840 
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'Check  to  see  if  there  are  any  changes 
COLOR  4,0: LOCATE  23, 15: INPUT  "  Any 

changes?  (Y/N)  ",A$ 

IF  A$  =  »y"  OR  A$  =  "Y"  THEN  Y=l: LOCATE  23,25: 

PRINT  "  Which  DVM  will  be  changed? 

":  LOCATE  2  3, 56  .‘INPUT  "",N:IF  Y=1  AND 
N>=1  AND  N<=12  GOTO  5340  ELSE  SOUND  100,3: 

GOTO  5550 

IF  A$  <>  "N"  AND  A$  <>  "n"  GOTO  5540 
COLOR  7,0: LOCATE  2 3, 15: PRINT  " 

STAND  BY  " 

I 

'Print  to  screen  the  directions  for  hooking  up 
the  calibration  shunt 

'resistor  to  DVM  1  which  is  the  master  for  this 
experiment 
SCREEN  0 , 1 , 2 , 0 : CLS 
COLOR  14,1 

K=1 : J=28 : L=25 :M=6 : IC=1 :G0SUB  3040 
COLOR  7,1: LOCATE  2, 35: PRINT  "STRAIN  GAGE" 

LOCATE  4, 35: PRINT  "CALIBRATION" 

LOCATE  6, 37: COLOR  12,1: PRINT  "MASTER" 

LOCATE  9,5 

COLOR  7,0: PRINT  CHR$(219)?"  The  strain  gage 

connected  to  DVM  1  will  be  the  master  for  this 
run . " ; 

LOCATE  11,5: COLOR  25,0:PRINT  CHR$ ( 2 19 ) ; : COLOR  11,0 
PRINT  "  Balance  the  Wheatstone  bridge  on  DVM  1.";: 

COLOR  15,0: PRINT  "  Hit  SPACEBAR  when  balanced." 
SCREEN  0,1, 2, 2 
Z$  =  INKEY$ 

IF  Z$  <>  CHR$ (32)  GOTO  5720 

LOCATE  11, 5: COLOR  9,0: PRINT  CHR$(219) 

LOCATE  11, 47: COLOR  7 , 0 : PRINT  " 

II 

BDNAME$  =  "DVM1" 

GOSUB  6720 

COLOR  26,0: LOCATE  13,5:PRINT  CHR$(219); 

COLOR  15,0: PRINT  "  Place  the  calibration  shunt 
resistor  across  the  strain  gage  leads 
LOCATE  14, 8: PRINT  "connected  to  DVM  1.";: 

COLOR  15,0: PRINT  "  Hit  SPACEBAR  to  continue." 

Z$  =  INKEY$ 

IF  Z$  <>  CHR$ (32)  GOTO  5810 

LOCATE  13, 5: COLOR  10,0: PRINT  CHR$(219) 

LOCATE  14, 29: COLOR  7,0: PRINT  " 
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5850  LOCATE  16,5:COLOR  28,0:PRINT  CHR$ (219) ;: COLOR  14,0: 
PRINT  "  Adjust  the  Wheatstone  Bridge  power 
supply  so  that  the  reading  on  DVM  1"; 

5860  LOCATE  17 , 8 : PRINT  "is  as  close  as  possible  to  the 
" ; CHR$ (238) ; " ( expt )  of:"; 

5870  COLOR  0,15: LOCATE  18, 36  SPRINT  CHR$ ( 32 );"-"; : 

PRINT  USING  "#.###"; ESTRN ( 1) /1000 ; : PRINT 
CHR$ (32) 

5880  COLOR  7 , 0 : LOCATE  20,5:PRINT  CHR$(219)?"  Once  the 
voltage  source  is  set,  do  not  change  the 
voltage  for" ; 

5890  LOCATE  21,8: PRINT  "remainder  of  this  session." 

5900  COLOR  3,0: LOCATE  2  3, 19  SPRINT  "When  the  voltage  is 
adjusted,  <CR>  to  continue." 

5910  Z$  =  INKEY$ 

5920  IF  Z$  <>  CHR$ ( 13 )  GOTO  5910 
5930  COLOR  7 , 0 : CLS 
5940  ' 

5950  'Return  to  the  calibration  table  and  take  the 
calibration  shunt  reading 
5960  'for  the  other  11  strain  gages 
5970  SCREEN  0,1, 0,0 

5980  LOCATE  23, 20: PRINT  "  STAND  BY 

ii 

5990  GOSUB  6860 

6000  ASTRN(l)  =  VAL(RD$) * (-1000000  !  ) 

6010  LOCATE  6,58:PRINT  USING  "####.#"; ASTRN ( 1 ) 

6020  CF ( 1)  =  ESTRN (1) /ASTRN (1) 

6030  LOCATE  6,69:COLOR  13,0:PRINT  USING  "#.######"; 

CF ( 1) : COLOR  7,0 

6040  Y=0! 

6050  FOR  N=2  TO  12 

6060  LOCATE  23,10: PRINT  "Balance  the  bridge 

connected  to  DVM  "?N;"  SPACEBAR  to 
continue . " 

6070  Z$  =  INKEY$ 

6080  IF  Z$  <>  CHR$ (32)  GOTO  6070 

6090  LOCATE  2  3, 10  SPRINT  " 

STAND  BY  ' 


6100 

IF 

N=2 

THEN 

BDNAME8 

= 

" DVM2" 

GOSUB 

6720 

6110 

IF 

N=3 

THEN 

BDNAME$ 

= 

"DVM 3" 

GOSUB 

6720 

6120 

IF 

N=4 

THEN 

BDNAME8 

= 

" DVM 4" 

GOSUB 

6720 

6130 

IF 

N=5 

THEN 

BDNAME8 

= 

"DVM5" 

GOSUB 

6720 

6140 

IF 

N=6 

THEN 

BDNAME$ 

= 

"DVM6" 

GOSUB 

6720 

6150 

IF 

N=7 

THEN 

BDNAME$ 

= 

"DVM7 " 

GOSUB 

6720 

60 
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6160 

6170 

6180 

6190 

6200 

6210 


6220 

6230 

6240 


6250 

6260 

6270 

6280 

6290 

6300 

6310 

6320 

6330 

6340 

6350 

6360 

6370 


6380 

6390 


6400 


6410 

6420 

6430 

6440 

6450 

6460 
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IF  N=8  THEN  BDNAME$  =  "DVM8":G0SUB  6720 
IF  N=9  THEN  BDNAME$  =  "DVM9" : GOSUB  6720 
IF  N=10  THEN  BDNAME$  =  "DVM10" : GOSUB  6720 

IF  N=ll  THEN  BDNAME$  =  "DVM11" : GOSUB  6720 

IF  N=12  THEN  BDNAME$  =  "DVM12 ": GOSUB  6720 

LOCATE  23, 3: PRINT  “Place  the  shunt  resistor 
across  the  leads  to  DVM  ";N;"  <CR>  to 
continue . " 

Z$  =  INKEY$ 

IF  Z$  <>  CHR$ ( 13 )  GOTO  6220 
LOCATE  23,3: PRINT  " 

STAND  BY 

H 

GOSUB  6860 

ASTRN(N)  =  VAL(RD$) * (-10000001 ) 

CF (N)  =  ESTRN (N) /ASTRN (N) 

M=0 

IF  N>3  THEN  M=1 
IF  N>6  THEN  M=2 
IF  N>9  THEN  M=3 

LOCATE  5+N+M, 58: PRINT  USING  "####.#"; ASTRN ( N ) 
LOCATE  5+N+M, 69: COLOR  13,0: PRINT  USING 
"#.######";CF(N) 

IF  Y=1 !  GOTO  6370 
COLOR  7,0 
NEXT  N 

COLOR  4,0: LOCATE  23, 13: INPUT  "  Want  to 

recalibrate  any  gages?  (Y/N) 

",A$ 

LOCATE  23,1: PRINT  " 

II 

IF  A$  =  "y"  OR  A$  =  "Y"  THEN  Y-l: LOCATE  23,12: 

PRINT  "  Which  DVM  has  the  gage  to  be 

recalibrated?  ": LOCATE  2 3, 66: INPUT  "",N: 

IF  Y=1  AND  N>=2  AND  N<=12  THEN  COLOR  7: GOTO  6060 
IF  N=1  AND  Y=1  THEN  LOCATE  23, 25: PRINT  "Since  DVM1 
was  the  master,  you  must  start  again. 

SPACEBAR  to  continue.": INPUT  "",Z$:IF 
Z$<>CHR$ (32)  GOTO  6400:GOTO  2080 
IF  Y=1  AND  (N<1  OR  N>12)  THEN  SOUND  1000, 2: GOTO  6390 

I 

'Constructs  an  output  file  " CALI BRAT . DAT "  which 
contains  the  calibration 

'data:  DVM  #,  Strain  gage  #  and  Calibration  factor 

OPEN  " CALI BRAT . DAT "  FOR  OUTPUT  AS  #2 
FOR  N=1  TO  12 
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WRITE  #2,N,G(N) ,CF(N) 

NEXT  N 
CLOSE  #2 

I 

•Machine  language  routine  that  does  a  PrtSc 
LOCATE  23, 10: COLOR  18,0: PRINT  » 

HARDCOPY  IN  PROGRESS 

It 


D$=DATE$ 

LPRINT  TAB (36) ;D$ 

DEFINT  A:  DIM  ARRAY  (3) 
DATA  &HCD55  : 

DATA  &H5D05  : 

: REM  5DH  POP  BP 
DATA  &H90CB  : 

FOR  1=1  TO  3:  READ  ARRAY 
SUBRT  =  VARPTR (ARRAY ( 1) ) 


REM  55H  Push  BP 
REM  CD05H  INT  5 

REM  9 OH  NOP 
(I) :  NEXT  I 
:  CALL  SUBRT 


'Return  to  the  main  menu 
LPRINT  CHR$ (27 ) +"E" 

LOCATE  23, 10: COLOR  15,0: PRINT  "Remove  the 
calibration  shunt  resistor ."?: COLOR  31: 

PRINT  "  SPACEBAR  TO  CONTINUE." 

2$  =  INKEY $ 

IF  Z$  <>  CHR$ ( 32 )  GOTO  6660 
GOTO  2080 

I 

'Subprogram  sets  meter  REMOTE,  clears  it,  sets 
function  and  range  then 
'turns  on  the  OFFSET 
CALL  IBFIND  ( BDNAME $ , DVM% ) 

IF  DVM%  <  0  THEN  G0SUB  4590 
CALL  IBCLR  (DVM%) 

IF  IBSTA%  <  0  THEN  GOSUB  4700 
WRT$  =  "F1R0" 

CALL  IBWRT  (DVM%,WRT$) 

IF  IBSTA%  <  0  THEN  GOSUB  4700 

J=0 : FOR  1=1  TO  500 :J=J+I : NEXT  I  'Program  delay 
WRT$  =  "Bl" 

CALL  IBWRT  (DVM%,WRT$) 

IF  IBSTA%  <  0  THEN  GOSUB  4700 
RETURN 

I 

'Subprogram  takes  meter  reading  and  turns  OFFSET 
off 

RD$  =  SPACE$ (20) 
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CALL  IBRD  (DVM%,RD$) 

IF  IBSTA%  <  0  THEN  GOSUB  4700 
WRT$  =  "BO" 

CALL  IBWRT  (DVM%,WRT$) 

IF  IBSTA%  <  0  THEN  GOSUB  4700 
RETURN 

i 

REM  SUBROUTINE  -  ADD/ DELETE/REPLACE  STRAIN  GAGES 

« 

'Construct  option  box 
SCREEN  0,1, 0,3: COLOR  7,0:CLS 
COLOR  2,7:K=8:J=25:L=32:M=9:IC=7:GOSUB  3040 
COLOR  0,7: LOCATE  10, 27: PRINT  "Make  a  selection:" 
LOCATE  12, 32: PRINT  "1.  ADD  strain  gage" 

LOCATE  13, 32: PRINT  "2.  DELETE  strain  gage" 

LOCATE  14, 32 -.PRINT  "3.  REPLACE  strain  gage" 

LOCATE  15, 32: PRINT  "4.  Return  to  main  menu" 

» 

'Read  in  all  stored  strain  gage  data 
OPEN  "STRAIN . DAT"  FOR  INPUT  AS  #1 
INPUT  #1 , Dl$ , N$ 

FOR  N=1  TO  150 

INPUT  # 1 , I , R ( I ) , GF ( I ) 

NEXT  N 
CLOSE  #1 

I 

'Make  selection 
SCREEN  0,1, 0,0 
LOCATE  16, 26: INPUT  "",A 

IF  A=1  THEN  GOSUB  7300  ELSE  IF  A=2  THEN  GOSUB  7730 
ELSE  IF  A=3  THEN  GOSUB  7810  ELSE  IF  A=4  GOTO 
2060  ELSE  SCREEN  0 , 1 , 1 , 1 : LOCATE  17,32: 

SOUND  1000,15: PRINT  "Select  1,2,3  or  4!": 

GOTO  7150 

I 

'Write  to  storage  all  strain  gage  data 
IF  D$=" "  THEN  D$=D1$ 

OPEN  "STRAIN. DAT"  FOR  OUTPUT  AS  #1 
WRITE  #1,D$,N$ 

FOR  N=1  TO  150 

WRITE  #1,N,R(N) , GF (N) 

NEXT  N 
CLOSE  #1 

I 

'Return  to  the  selection  menu 
COLOR  7,0: CLS : GOTO  6940 
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'ADD  strain  gage  subroutine 
SCREEN  0,1, 0,3 
COLOR  7,0: CLS 

t 

'Search  for  the  open  slots  on  the  strain  gage  panel 
C=0 

FOR  N=1  TO  150 

IF  GF (N)  =  0  THEN  C=C+1 : ADD (C) =N 
NEXT  N 

I 

'Construct  table  of  open  board  slots 
COLOR  4,0 
M=CINT (C/4 ) +1 
K=13  -  CINT (M/2 ) 

J=26 : L=28 : GOSUB  3040 
C#  =  0 

COLOR  11,0 
FOR  N=1  TO  M-l 

LOCATE  K+N ,30: PRINT  USING  "###" ;ADD(C#+1) : 

LOCATE  K+N, 36 : PRINT  USING  "###"; ADD ( C #  +  2 )  : 
LOCATE  K+N, 43 : PRINT  USING  "###"; ADD (C#+3 ) : 
LOCATE  K+N, 49 : PRINT  USING  "###" ;ADD(C#+4) 
C#=C#+4 
NEXT  N 

LOCATE  K-2, 27: COLOR  15,0: PRINT  "STRAIN  GAGE  BOARD 
VACANCIES" 

SCREEN  0, 1,0,0 

LOCATE  K+M+2 , 21: COLOR  12,0: PRINT  "Select  location 
of  new  gage  from  list:  " 

I 

'Select  new  strain  gage  location  and  verify  it  as 
a  vacancy 

LOCATE  K+M+2, 61: COLOR  7 , 0 : INPUT  " " , NG# 

FOR  N=1  TO  C 

IF  NG#  =  ADD (N)  GOTO  7610 
NEXT  N 

SOUND  1000, 18 . 2 : GOTO  7530 

I 

'Enter  the  new  gage's  resistance  and  gage  factor 
CLS : COLOR  9,7: K=12 : J=3 5 : L=10 :M=2 : IC=7 : GOSUB  3040 
COLOR  11,0: LOCATE  10, 22: PRINT  "Enter  manufacture 
r's  listed  resistance." 

COLOR  14,0: LOCATE  16, 10: PRINT  "NOTE:  Suggest  you 
run  resistance  update  subprogram  after  " 

LOCATE  17, 10: PRINT  "completion  of  this  subprogram." 
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COLOR  0,7: LOCATE  13, 38: INPUT  " " , R (NG# ) 

COLOR  7,0: CLS 

COLOR  9,7:K=12:J=35:L=10:M=2: IC=7 : GOSUB  3040 
COLOR  11,0: LOCATE  10, 21: PRINT  "Enter  manufacture 
r's  listed  gage  factor." 

COLOR  0,7: LOCATE  13,38:INPUT  " " , GF  (NG# ) 

COLOR  7,0: CLS: SCREEN  0 , 1 , 0 , 3 : RETURN 
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'DELETE  strain  gage  subroutine 
COLOR  7,0: CLS 

COLOR  1 , 7 : K=12 : J=37 : L=6 :M=2 : IC=7 : GOSUB  3040 
COLOR  11,0: LOCATE  10, 23: PRINT  "Enter  strain  gage 
number  deleted:" 

COLOR  0,7: LOCATE  13, 39: INPUT  " " , DG# 

IF  DG#<1  OR  DG#>150  THEN  SOUND  1000 , 18 . 2 : COLOR  7; 

LOCATE  13, 38: PRINT  "  ":GOTO  7780 
SCREEN  0, 1, 0, 3 : R ( DG# ) =0 : GF ( DG# ) =0 : RETURN 


'REPLACE  strain  gage  subroutine 
COLOR  7,0: CLS 

COLOR  1,7: K=12 : J=37 : L=6 :M=2 : IC=7 : GOSUB  3040 
COLOR  11,0: LOCATE  10, 22: PRINT  "Enter  strain  gage 
number  replaced:" 

COLOR  0,7: LOCATE  13, 39: INPUT  "",RPG# 

IF  RPG#<1  OR  RPG#>150  THEN  SOUND  1000 , 18 . 2 : COLOR  7: 

LOCATE  13, 38: PRINT  "  ":GOTO  7860 
COLOR  7,0: CLS 

COLOR  11,0: LOCATE  10, 9: PRINT  "Enter  replacement 

strain  gage  manufacturer's  listed  resistance:" 
COLOR  1,7:K=12:J=35: L=10 :M=2 : IC=7 : GOSUB  3040 
COLOR  14,0: LOCATE  16, 10: PRINT  "NOTE:  Suggest  you 
run  resistance  update  subprogram  after  " 

LOCATE  17, 10: PRINT  "completion  of  this  subprogram." 
COLOR  0,7: LOCATE  13, 37: INPUT  "",R(RPG#) 

COLOR  7,0: CLS 

COLOR  9,7:K=12:J=35:L=10 :M=2 : IC=7 : GOSUB  3040 
COLOR  11,0: LOCATE  10,21:PRINT  "Enter  manufacture 
r's  listed  gage  factor." 

COLOR  0,7: LOCATE  13, 38: INPUT  " " , GF (RPG# ) 

COLOR  7,0: CLS: SCREEN  0 , 1 , 0 , 3 : RETURN 
LFLAG=0 

OPEN  "DIS -FLAG. DAT"  FOR  OUTPUT  AS  #1 
WRITE  #1,  LFLAG 
CLOSE  #1 
SYSTEM: STOP: END 
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LCDR  USN 

Advisor: 

Prof.  Edward  M.  WU 


REM  MAIN  PROGRAM  -  GPIB-PC  HANDLER  STATEMENTS 

i 

CLEAR  ,59300! 

IBINIT1  =  59300! 

IBINIT2  =  IBINIT1  +  3 
BLOAD  "bib.m" , IBINIT1 

CALL  I BINIT 1 ( IBFIND , IBTRG , IBCLR, IBPCT, IBSIC, IBLOC, 
IBPPC, IBBNA, IBONL, IBRSC , IBSRE , IBRSV, IBPAD, 
IBSAD , IBIST , IBDMA , IBEOS , IBTMO , IBEOT , IBRDF , 
IBWRTF) 

CALL  IBINIT2 ( IBGTS , IBCAC , IBWAIT, IBPOKE , IBWRT , 

IBWRTA, IBCMD, IBCMDA, IBRD, IBRDA, IBSTOP, IBRPP, 
IBRSP, IBDIAG , IBXTRC , IBRDI , IBWRTI , IBRDIA, 
IBWRTIA, IBSTA% , IBERR% , IBCNT% ) 

i 

REM  MAIN  PROGRAM-COVER  SHEET  PRINT  TO  SCREEN 

i 

PRINT  "~L=BACKKEY/'! 

PRINT  "~K={ BACK } , KEYFIX, NOESC , NOMOVE/" 

KEY  OFF: SCREEN  1,0: COLOR  1,0 
DEF  SEG  =  &HB800 
BLOAD  "C : P2WING . DRW" , 0 
DEF  SEG 

ON  TIMER  (5)  GOSUB  1300 
TIMER  ON 
WHILE  T=0 
TX=1 

WEND 

TIMER  OFF: GOTO  1320 
T=1 

RETURN 

SCREEN  2,0: SCREEN  0,1: KEY  OFF 

SCREEN  0,1, 2, 2: COLOR  2 9 , 0 : CLS : LOCATE  13,37: 

PRINT  "STANDBY” 

I 

REM  MAIN  PROGRAM-INITIAL  ASSIGNMENTS, 

DIMENSIONS  AND  SETUP 

I 

DEFINT  A 
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1380  DIM  D ( 12 , 5) , R ( 12 ) , G ( 12 ) , CF ( 12 ) , ARRAY (3 ) , RESULTS ( 12 ) 
, RR (150) , GF ( 150 ) 

1390  OPEN  " DIS-FLAG . DAT"  FOR  INPUT  AS  #3 
1400  INPUT  #3,  NFLAG 
1410  CLOSE  #3 

1420  OPEN  "DIS-FLAG. DAT"  FOR  OUTPUT  AS  #3 

1430  LFLAG=0 

1440  WRITE  #3,  LFLAG 

1450  CLOSE  #3 

1460  OPEN  " CALI BRAT . DAT "  FOR  INPUT  AS  #1 

1470  FOR  N=1  TO  12 

1480  INPUT  # 1 , M, G (N) , CF (N) 

1490  NEXT  N 
1500  CLOSE  #1 

1510  OPEN  "STRAIN . DAT"  FOR  INPUT  AS  #2 
1520  INPUT  #2,  D1$,N1$ 

1530  FOR  N=1  TO  150 

1540  INPUT  #2,1, RR (N) , GF (N) 

1550  NEXT  N 

1560  CLOSE  #2 

1570  IF  NFLAG=1  GOTO  1740 

1580  ' 

1590  REM  MAIN  PROGRAM-DVM  CONTROL:  CLEAR,  FUNCTION, 
RANGE,  OFFSET 

1600  ' 


1610 

BDNAME$ 

= 

"DVM1" 

M=1 

GOSUB 

3020 

1620 

BDNAME$ 

= 

"DVM2 " 

M=2 

GOSUB 

3020 

1630 

BDNAME$ 

"DVM3" 

M=3 

GOSUB 

3020 

1640 

BDNAME$ 

= 

"DVM4" 

M=4 

GOSUB 

3020 

1650 

BDNAME$ 

= 

"DVM5" 

M=5 

GOSUB 

3020 

1660 

BDNAME$ 

= 

"DVM6" 

M=6 

GOSUB 

3020 

1670 

BDNAME$ 

= 

"DVM7 " 

M=7 

GOSUB 

3020 

1680 

BDNAME$ 

= 

"DVM8" 

M=8 

GOSUB 

3020 

1690 

BDNAME$ 

= 

"DVM9" 

M=9 

GOSUB 

3020 

1700 

BDNAME$ 

= 

"DVM10" :  M=10:  GOSUB  3020 

1710 

BDNAME$ 

= 

"DVM11" :  M=ll :  GOSUB  3020 

1720 

BDNAME$ 

= 

"DVM12":  M=12:  GOSUB  3020 

1730  ' 

1740  REM  MAIN  PROGRAM-DVM  READ 
1750  ' 

1760  PRINT  "~L=BACKKEY/" 

1770  PRINT  "~K={ BACK} , KEYFIX, NOESC , NOMOVE/" 

1780  SCREEN  0 , 1 , 2 , 2 : COLOR  2 0 , 0 : CLS : LOCATE  13,37: 

PRINT  "STANDBY" 

1790  SCREEN  0,1,0, 2 

1800  COLOR  14, 4:  CLS  .-COLOR  1,7 


67 


Pg  3 
of  12 
1810-2200 


09 

Wed  09 


1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2^20 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 


16- 86  15:14:26  c:p2v-load.bas 

17- 86  16:16:09 


K=ll : J=8 : L=65 :M=3 : IC=7 : GOSUB  3650 
COLOR  0,7 

LOCATE  12, 10: PRINT  "When  the  wing  is  properly 
loaded,  enter  load  applied  and  <CR>." 

LOCATE  13, 12: PRINT  "NOTE:  DVM  readings  will  be 
taken  immediately  after  <CR>." 

COLOR  2,7 

K=16:J=36:L=10:M=2:IC=7: GOSUB  3650 
COLOR  7, 4: LOCATE  20, 18: PRINT  "Enter  0  when  ready 
to  terminate  this  program." 

COLOR  0,7: LOCATE  17, 43: PRINT  "LB.": SCREEN  0,1, 0,0: 

LOCATE  17, 38: INPUT  "",XLOAD 
IF  XLOAD  =  0  GOTO  2890 
FOR  N=1  TO  5 

COLOR  10 , 1+N : CLS 

LOCATE  11, 23: PRINT  "The  program  is  reading  all 
twelve  DVMs" 


COLOR  3 1,N+1: LOCATE  13,38: PRINT  "PASS  »;N 


COLOR  15 

: LOCATE  15,25 

:  PRINT  ' 

NOTE: 

scanned  in  rack." 

BDNAME$ 

= 

"DVM1" 

M=1 

:  GOSUB 

3290 

BDNAME$ 

= 

"DVM2 " 

M=2 

:  GOSUB 

3290 

BDNAME$ 

= 

"DVM3 " 

M=3 

:  GOSUB 

3290 

BDNAME$ 

= 

"DVM4 " 

M=4 

:  GOSUB 

3290 

BDNAME$ 

= 

"DVM5" 

M=5 

:  GOSUB 

3290 

BDNAME$ 

= 

"DVM6" 

M=6 

:  GOSUB 

3290 

BDNAME$ 

= 

"DVM7 " 

M=7 

:  GOSUB 

3290 

BDNAME$ 

= 

"DVM8 " 

M=8 

:  GOSUB 

3290 

BDNAME$ 

= 

"DVM9" 

M=9 

:  GOSUB 

3290 

BDNAME$ 

= 

"DVM10" :  M= 

10:  GOSUB  3290 

BDNAME$ 

= 

"DVM11" :  M= 

11:  GOSUB  3290 

BDNAME$ 

= 

"DVM12" :  M= 

12:  GOSUB  3290 

NEXT  N 

i 


REM 

i 


MAIN  PROGRAM-AVERAGE  DVM  READINGS 


FOR  M=1  TO  12 
S=0 

FOR  N=1  TO  5 
S=S+D (M, N) 

NEXT  N 
R (M) =S/5 ! 

NEXT  M 

i 

REM  MAIN  PROGRAM-PRINT  DVM  MEASUREMENT  SUMMARY 
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SCREEN  0,1, 0,2 
COLOR  7,0: CLS 

COLOR  9 : K=2 : J=14 : L=52 :M=20 : GOSUB  3650 
K=14:J=66:L=6: GOSUB  3560 
K=14: J=66:L=4: GOSUB  3560 
K=4 : J=22 : L=22 :GOSUB  3470 
K=4:J=22:L=32: GOSUB  3470 
K=4:J=22:L=44: GOSUB  3470 
K=4:J=22:L=55: GOSUB  3470 
LOCATE  6, 22 ‘.PRINT  CHR$(206) 

LOCATE  6, 32: PRINT  CHR$(206) 

LOCATE  6, 44: PRINT  CHR$(206) 

LOCATE  6, 55: PRINT  CHR$(206) 

COLOR  13:  LOCATE  3, 16  SPRINT  USING  "####'•  ;X  LOAD;: 

PRINT  "  lb  LOAD  MEASUREMENT  SUMMARY  (strain-m 
in/in) " 

COLOR  11: LOCATE  5, 17: PRINT  "DVM": LOCATE  5,25: 

PRINT  "GAGE#" 

LOCATE  5, 37: PRINT  "mV": LOCATE  5, 48: PRINT  "C.F." 
LOCATE  5, 60: PRINT  CHR$(238) 

FOR  N=1  TO  12 
M  =  0 

IF  N>3  THEN  M=1 
IF  N>6  THEN  M=2 
IF  N>9  THEN  M=3 

COLOR  7 -.LOCATE  6+N+M,  18  :  PRINT  USING  "##";N 
LOCATE  6+N+M,  26 -.PRINT  USING  "###";  G  ( N ) 

LOCATE  6+N+M ,35: PRINT  USING  "###.###"; R ( N ) 

LOCATE  6+N+M, 47  SPRINT  USING  "#.####"; CF (N) 
RESULTS (N)  =  CF (N) *R (N) 

COLOR  15 

LOCATE  6+N+M, 57  SPRINT  USING  "###.###"; RESULTS (N) 
NEXT  N 

IF  GF(G(1) )=2.04  THEN  G$="A3" 

IF  GF (G(l) ) <>1 . 95  AND  GF (G ( 1) ) <>1 . 92  GOTO  2650 
M  =  0:L=0: COLOR  15 
FOR  N=1  TO  12 

IF  N=4  THEN  M=1:L=0 
IF  N=7  THEN  M=2:L=0 
IF  N=10  THEN  M=3 : L=0 
L=L+1 

IF  L=1  THEN  RESULTS (N) =RESULTS (N) + . 005+RESULTS ( 
N+2 ) 

IF  L=3  THEN  RESULTS (N) =RESULTS (N) + . 005+RESULTS ( 
N-2 ) 

IF  L=2  THEN  RESULTS (N)  =  (RESULTS (N)  *  .995)  + 
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(.005  *  (RESLUTS (N-l)  +  RESULTS (N+l) ) ) 

LOCATE  6+N+M, 57: PRINT  USING  "###.###"; RESULTS (N) 
NEXT  N 

LOCATE  23, 6: PRINT  "Strain  measurement  includes 
poisson  ratio  correction  for  wire  gages." 

COLOR  2 6 : LOCATE  12,70:PRINT  "PRINT" 

LOCATE  13 ,72: PRINT  "IN" 

LOCATE  14, 69 -.PRINT  "PROGRESS" 

SCREEN  0,1, 0,0 

i 

REM  MAIN  PROGRAM-PRINT  THE  DVM  OUTPUT 

i 

D$=DATE$ 

LPRINT  TAB (30) ;D$ 

GOSUB  3980 
LPRINT  CHR$ ( 13 ) 

COLOR  26: LOCATE  12, 70: PRINT  "  " 

LOCATE  13, 72: PRINT  "  " 

LOCATE  14, 69: PRINT  "  " 

COLOR  4: LOCATE  7, 68: PRINT  "SELECT:" 

LOCATE  9, 69: PRINT  "1)  Obtain" : LOCATE  10,72: 

PRINT  "new  load" 

LOCATE  11, 72: PRINT  "data." 

IF  G$="A3 "  THEN  LOCATE  12, 69: PRINT  "2)  Exit": 

LOCATE  13, 72: PRINT  "program .": LOCATE  14,69: 

INPUT  "" ,M: IF  M=1  GOTO  1740  ELSE  IF  M=2  THEN 
CLS: CHAIN  "P2V-CAL" , 8030  ELSE  SOUND  100,3: 

GOTO  2810 

LOCATE  12, 69: PRINT  "2)  Analyse" : LOCATE  13,72: 

PRINT  "rosette" 

LOCATE  14, 72: PRINT  "data .": LOCATE  15,69: 

PRINT  "3)  Exit" 

LOCATE  16, 72: PRINT  "program." 

LOCATE  17, 69: INPUT  "",M 

IF  M=1  GOTO  1740  ELSE  IF  M=2  GOTO  4310  ELSE  IF  M=3 
THEN  CHAIN  "P2V-CAL" , 8030  ELSE  SOUND  100,3: 

GOTO  2850 

i 

REM  MAIN  PROGRAM -TERMINATE  EXECUTION 

i 

SCREEN  0,1, 0,0 
COLOR  7,0 
CLS 

LOCATE  12, 22 -.SOUND  1000, 2:  SOUND  1500, 2:  SOUND  2000,2 
PRINT  "Program  run  completed." 

CLS: CHAIN  "P2V-CAL" , 8030 
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2970  ' 

2980  END 
2990  ' 

3000  REM  SUBROUTINE-DVM  CONTROL:  CLEAR,  FUNCTION, 
RANGE,  OFFSET 

3010  ' 

3020  CALL  IBFIND  ( BDNAME $ , DVM% ) 

3030  IF  DVM%  <  0  THEN  E=l:  GOSUB  4110 
3040  CALL  IBCLR  (DVM%) 

3050  IF  IBSTA%  <  0  THEN  E=2 :  GOSUB  4160 
3060  WRT$  =  "F1R0" 

3070  CALL  IBWRT  (DVM%,WRT$) 

3080  IF  IBSTA%  <  0  THEN  E=3 :  GOSUB  4160 
3090  J=0  'Program  delay 

3100  FOR  1=1  TO  100  'Program  delay 

3110  J=J+I  'Program  delay 

3120  NEXT  I  'Program  delay 

3130  IF  Mol  GOTO  3220 

3140  SCREEN  0 , 1 , 0 , 2 : COLOR  2 , 1 : CLS : COLOR  4,7 

3150  K=12 : J=ll : L=60 :M=3 : IC=7 : GOSUB  3650 

3160  LOCATE  13 ,13: COLOR  0 , 7 : PRINT  "Balance  the 

Wheatstone  bridge  for  all  strain  gages,  then" 
3170  LOCATE  14, 13: COLOR  0,7 

3180  PRINT  "enter  SPACEBAR  when  ready  to  set  the  OFFSET 
for  all  DVMs.": SCREEN  0,1, 0,0 
3190  Z$  =  INKEY$ 

3200  IF  Z$  <>  CHR$ (32 )  GOTO  3190 

3210  COLOR  23,1:  LOCATE  20, 37  .-PRINT  "STANDBY" 

3220  WRT$  =  "Bl" 

3230  CALL  IBWRT  (DVM%,WRT$) 

3240  IF  IBSTA%  <  0  THEN  E=4 :  GOSUB  4160 
3250  RETURN 
3260  ' 

3270  REM  SUBROUTINE-READ  DVM 
3280  ' 

3290  CALL  IBFIND  ( BDNAME $, DVM% ) 

3300  IF  DVM%  <  0  THEN  E=5:G0SUB  4110 
3310  WRT$  =  "T3 " 

3320  CALL  IBWRT  (DVM%,WRT$) 

3330  IF  IBSTA%  <  0  THEN  E=6:  GOSUB  4160 
3340  CALL  IBTRG  (DVM%) 

3350  IF  IBSTA%  <  0  THEN  E=8 :  GOSUB  4160 
3360  RD$  =  SPACE$ ( 16) 

3370  CALL  IBRD  (DVM%,RD$) 

3380  IF  IBSTA%  <  0  THEN  E=12:  GOSUB  4160 
3390  B#  =  VAL(RD$)  *  1000! 
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D(M,N)  =  B# 

IF  N<>5  GOTO  3450 
WRT$  =  "TO" 

CALL  IBWRT  (DVM%,WRT$) 

IF  IBSTA%  <  0  THEN  E=7 :  GOSUB  4160 
RETURN 

i 

REM  SUBPROGRAM  -  PRINT  A  COLUMN  TO  SCREEN 
(K-START,  J-END,  L-COLUMN) 

FOR  I=K+1  TO  J-l 
LOCATE  I , L 
PRINT  CHR$ (186) 

NEXT  I 

LOCATE  K,L: PRINT  CHR$ (203 ): LOCATE  J,L: PRINT 
CHR$ (202 ) 

RETURN 

i 

REM  SUBPROGRAM  -  PRINT  A  ROW  TO  SCREEN 
(K-START,  J-END,  L-ROW) 

i 

FOR  I-K+l  TO  J-l 
LOCATE  L, I 
PRINT  CHR$ (205) 

NEXT  I 

LOCATE  L, K: PRINT  CHR$ ( 204 ): LOCATE  L,J:PRINT 
CHR$ (185) 

RETURN 

i 

REM  SUBPROGRAM  -  PRINT  A  BOX  TO  SCREEN 
(K, J-UPPERLEFT  CORNER,  L-LENGTH, 

M-HEIGHT,  IC-INTERIOR  COLOR. . 
DEFAULT  BLACK  0} 

i 

LOCATE  K,J: PRINT  CHR$(201) 

FOR  I=J+1  TO  J+ (L-l) 

LOCATE  K, I 
PRINT  CHR$ (205) 

NEXT  I 

LOCATE  K,J+L: PRINT  CHR$(187) 

FOR  I=K+1  TO  K+(M-1) 

LOCATE  I,J 
PRINT  CHR$ (186) 

NEXT  I 

LOCATE  K+M,J: PRINT  CHR$(200) 

FOR  I=J+1  TO  J+(L-1) 
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LOCATE  K+M, I 
PRINT  CHR$ (205) 

NEXT  I 

LOCATE  K+M, J+L: PRINT  CHR$(188) 

FOR  I=K+1  TO  K+ (M-l) 

LOCATE  I,L+J 
PRINT  CHR$ (186) 

NEXT  I 

IF  IC=0  GOTO  3960 
COLOR  IC 

FOR  I=K+1  TO  K+M-l 

FOR  N=J+1  TO  J+L-l 

LOCATE  I, N: PRINT  CHR$(219) 

NEXT  N 
NEXT  I 
COLOR  7,0 
IC=0 

RETURN 

1 

REM  SUBROUTINE-PRINT  SCREEN 

i 

A=0: RESTORE 

DATA  &HCD55  :REM  55H  Push  BP 

DATA  &H5D05  :REM  CD05H  INT  5 

: REM  5DH  POP  BP 

DATA  &H90CB  :REM  9 OH  NOP 

FOR  1=1  TO  3:  READ  ARRAY (I):  NEXT  I 
SUBRT  =  VARPTR (ARRAY ( 1) ) :  CALL  SUBRT 

RETURN 

■ 

REM  ERROR  SUBROUTINE  LOCATIONS 

i 

'  A  routine  at  this  location  would  notify 

'  you  that  the  IBFIND  call  failed,  and 

'  refer  you  to  the  handler  software 

1  configuration  procedures. 

PRINT  "IBFIND  ERROR"  :  PRINT  "E=  ";E:  PRINT  "DVM 
M:  STOP 

'  An  error  checking  routine  at  this 

'  location  would,  among  other  things, 

'  check  IBERR  to  determine  the  exact 

'  cause  of  the  error  condition  and  then 

'  take  action  appropriate  to  the 

'  application.  For  errors  during  data 

'  transfers,  IBCNT  may  be  examined  to 

'  determine  the  actual  number  of  bytes 
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4240  '  transferred. 

4250  PRINT  "GPIB  ERROR"  :  PRINT  "E="?E:  STOP 
4260  '  A  routine  at  this  location  would  analyze 

4270  '  the  fault  code  returned  in  the  DVM's 

4280  '  status  byte  and  take  appropriate  action. 

4290  PRINT  " DVM  ERROR"  :  PRINT  "E=  "?E:PRINT  "DVM  ";M: 
STOP 

4300  END 

4310  REM  Portion  of  program  which  does  the  rosette 
analysis 

4320  ' 

4330  SCREEN  0 , 1 , 0 , 0 : COLOR  7 : CLS 
4340  PRINT  "~K= { BACK } /" 

4  3  50  SCREEN  2  rj 

4360  KEY  OFF  ,  0 :  CLS 

4370  COLOR  1;0  ^ 

4380  IF  C%=0  THEN  DIM  PIX# (700) : C%=1 
4390  DEF  SEG 

4400  PIX . PTR=VARPTR (PIX# ( 0 ) ) 

4410  BLOAD  "C : ROSETTE . PIX" , PIX. PTR 
4420  VIEW  (70, 39) -(250, 159) , ,3 
4430  PUT  (40,5) , PIX# 

4440  ON  TIMER ( 3 )  GOSUB  4510 

4450  TIMER  ON:T=0 

4460  WHILE  T=0 

4470  SUM  =  0 

4480  WEND 

4490  VIEW 

4500  GOTO  4530 

4510  T=1 

4520  RETURN 

4530  SCREEN  1,0: COLOR  1,0: CLS 
4540  DEF  SEG 

4  550  PIX . PTR=VARPTR ( PIX# ( 0 )  ) 

4560  BLOAD  "C : ANALIZE2 . PIX" , PIX . PTR 
4570  PUT  (18,1), PIX# 

4580  WHILE  GF(G(1) )=2.09 

4590  LOCATE  15, 3: PRINT  USING  "####" ;XLOAD; : 

PRINT  "  LB.  LOAD" 

4600  LOCATE  15,18:PRINT  CHR$ ( 2 14 ) ; CHR$ ( 196 ) ; 

"A  B  C  ";CHR$(196) ;CHR$(183) 

4610  LOCATE  16, 6: PRINT  "SELECT" : LOCATE  16,18: 

PRINT  CHR$ (186) ; "  "?: PRINT  USING  "###"; 

G ( 1) ; : PRINT  USING  "#####"; G ( 5 ); : 

PRINT  USING  "#####" ;G(9) ; :PRINT  " 

CHR$ (186) 
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LOCATE  17, 6: PRINT  "ROSETTE" : LOCATE  17,18: 

PRINT  CHR$ (186) ; "  PRINT  USING  "###"; 

G (2 ) ; : PRINT  USING  "#####» ;G(6) ; : 

PRINT  USING  "#####"; G ( 1 0 ) ; : PRINT  "  »; 

CHR$ (186) 

LOCATE  18,18: PRINT  CHR$(186);"  PRINT  USING 
"###";G(3) ; : PRINT  USING  "#####" ;G(7) ; : 

PRINT  USING  "#####" ;G (11) ; : PRINT  "  »; 

CHR$ (186) 

LOCATE  19,18: PRINT  CHR$(186);"  ";:PRINT  USING 
"###"; G ( 4 ) ; : PRINT  USING  "#####" ;G(8) ; : 

PRINT  USING  "#####"; G ( 12) ;  : PRINT  " 

CHR$ (186) 

LOCATE  20,18: PRINT  CHR$ (211) ;CHR$ (196) ; 

CHR$ (196) ;CHR$ (196) ;CHR$(196) ;CHR$(196) ; 
"GAGES" ;CHR$ (196) ;CHR$(196) ;CHR$(196) ; 

CHR$ (196) ;CHR$ (196) ;CHR$(189) 

VIEW  (5,163) -(314,187) , ,2 

LOCATE  2 2, 7: PRINT  "For  rosette  ENTER  A, B  OR  C." 
IF  F$o"Y"  THEN  LOCATE  2  3, 4:  PRINT  "ENTER  L  to 
return  to  Load  program."  ELSE  LOCATE  23,4: 
PRINT  "ENTER  X  to  end." 

LOCATE  23, 38: INPUT  "",M$ 

IF  M$="X"  OR  M$="X»  THEN  CLS: SCREEN  2: SCREEN  0: 
LFLAG=0 : OPEN  "DIS-FLAG . DAT"  FOR  OUTPUT  AS 
#2: WRITE  # 2 , LFLAG : CLOSE  #2: CHAIN 
"P2V-CAL" ,8030 

IF  M$  =  "L"  OR  M$  =  "1"  THEN  CLS:GOSUB  4940 
IF  M$="A"  OR  M$="a"  THEN  GN1=1 : GN2=2 : GN3=3 : 

GN4=4 : GAGE=G ( 1) :GOSUB  4940 
IF  M$="B"  OR  M$="b"  THEN  GN1=5 : GN2=6 : GN3=7 : 

GN4=8 : GAGE=G (5) :G0SUB  4940 
IF  M$="C"  OR  M$="c"  THEN  GN1=9 : GN2=10 : GN3=11 : 

GN4=12 :GAGE=G(9) : GOSUB  4940 
SOUND  100 , 3 : GOTO  4690 

WEND 

LOCATE  15, 3: PRINT  USING  "####" ;XLOAD? : PRINT  "  LB. 
LOAD" 

LOCATE  16,18: PRINT  CHR$ ( 214 ) ; CHR$ ( 196) ; "  A  B 
C  D";CHR$(196) ;CHR$(183) 

LOCATE  17, 5: PRINT  "SELECT" : LOCATE  17,18: 

PRINT  CHR$ (186) ;: PRINT  USING  "###";G(l)j: 

PRINT  USING  "#####"  ;G(4)  ;  :  PRINT  USING  "#####"; 

G ( 7 ) ; : PRINT  USING  "#####"; G ( 10) ;: PRINT  " 

CHR$ (186) 

LOCATE  18, 5: PRINT  "ROSETTE" : LOCATE  18,18: 


75 


Pg  11 
of  12 
4800-5050 


09 

Wed  09 


4810 


4820 


4830 

4840 

4850 


4860 

4870 


4880 

4890 

4900 

4910 

4920 

4930 

4940 

4950 

4960 

4970 

4980 

4990 

5000 

5010 

5020 

5030 

5040 

5050 


16- 86  15:14:26  c:p2v-load.bas 

17- 86  16:16:09 


PRINT  CHR$ ( 186) ;: PRINT  USING  "###";G( 2);: 

PRINT  USING  "#####";  G  ( 5 )  ;  :  PRINT  USING  "#####"; 
G (8) ; : PRINT  USING  "#####" ;G ( 11) ;: PRINT  "  "; 
CHR$ (186) 

LOCATE  19,18: PRINT  CHR$ ( 186) ;: PRINT  USING  "###"; 
G(3);:PRINT  USING  "#####" ?G (6) PRINT  USING 
"#####"; G ( 9 ) ; : PRINT  USING  "#####" ;G(12) ; : 

PRINT  "  " ;CHR$ (186) 

LOCATE  20,18: PRINT  CHR$ (211) ;CHR$ (196) ;CHR$ (196) ; 
CHR$ (196) ;CHR$ (196) ;CHR$(196) ;CHR$(196) ; 

CHR$ (196) ; "GAGES" ;CHR$ (196) ;CHR$(196) ; 

CHR$ (196) ;CHR$ (196) ;CHR$(196) ;CHR$(196) ; 

CHR$ (196) ;CHR$ (189 ) 

VIEW  (5,163)-(314,187) ,  ,2 

LOCATE  22, 7 -.PRINT  "For  rosette  ENTER  A,B,C  or  D." 
IF  F$<>" Y"  THEN  LOCATE  23, 4: PRINT  "ENTER  L  to 
return  to  Load  program."  ELSE  LOCATE  23,4: 
PRINT  "ENTER  X  to  end." 

LOCATE  23, 38: INPUT  »",M$ 

IF  M$="X"  OR  M$="x"  THEN  CLS: SCREEN  2: SCREEN  0: 
LFLAG=0 : OPEN  "DIS-FLAG . DAT"  FOR  OUTPUT  AS  #2: 
WRITE  # 2 , LFLAG : CLOSE  #2:CHAIN  "P2V-CAL" , 803 0 
IF  M$  =  "L"  OR  M$  =  "1"  THEN  CLS:GOSUB  4940 
IF  M$="A"  OR  M$="a"  THEN  GN1-1 s GN2=2 : GN3=3 : 

GAGE=G ( 1 ) : GOSUB  4940 

IF  M$="B"  OR  M$="b"  THEN  GN1=4 : GN2=5 : GN3=6 : 
GAGE=G(4) : GOSUB  4940 

IF  M$="C"  OR  M$="c"  THEN  GN1=7 : GN2=8 : GN3=9 : 
GAGE=G(7) : GOSUB  4940 

IF  M$="D"  OR  M$="d"  THEN  GN1-10 : GN2-11 : GN3=12 : 

GAGE=G ( 10 ): GOSUB  4940 
SOUND  100, 3: GOTO  4860 

i 

OPEN  "DISPLAY . DAT"  FOR  OUTPUT  AS  #1 
WRITE  #1,  GF (G ( 1) ) ,  XLOAD 

IF  GF (G ( 1) )  =2.09  THEN  WRITE  #1,  GN1 ,  GN2 ,  GN3 , 
GN4 ,  GAGE  ELSE  WRITE  #1,  GN1 ,  GN2 ,  GN3 ,  GAGE 
FOR  1=1  TO  12 

WRITE  #1,  RESULTS ( I ) ,  G(I) 

NEXT  I 
CLOSE  #1 

IF  M$="L"  OR  M$="l"  THEN  CLS: SCREEN  2: SCREEN  0: 

IF  NFLAG=1  THEN  RETURN  1000  ELSE  RETURN  1740 
SHELL  "ANALIZE.BAT" 

NFLAG  =  1 

OPEN  "DIS-FLAG. DAT"  FOR  OUTPUT  AS  #3 
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5060  WRITE  #3,  NFLAG 
5070  CLOSE  #3 
5080  RETURN  4330 
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REM  This  is  a  compiled  executable  BASIC  program 
which  does  the 

REM  high  resolution  display  portion  of  the 
rosette  analysis 

'Variable  declarations 
DIM  RESULTS (12),  G(12) 

'Retrieve  data  to  be  displayed  from  the  hard  disk 
OPEN  "DISPLAY . DAT"  FOR  INPUT  AS  #1 
INPUT  #1,  GF,  XLOAD 

IF  GF=2 . 09  THEN  INPUT  #1,  GN1 ,  GN2 ,  GN3 ,  GN4  GAGE 
ELSE  INPUT  #1,  GN1 ,  GN2 ,  GN3 ,  GAGE 
FOR  1=1  TO  12 

INPUT  #1,  RESULTS (I),  G(I) 

NEXT  I 
CLOSE  #1 

I 

KEY  OFF 

i 

'Calculations  for  the  older  AR-7-2  wire  rosette 
WHILE  (GF=1 . 92  OR  GF=1.95)  AND  NSTOP=0 
EX  =  RESULTS (GN1) :EY  -  RESULTS ( GN3 ) 

IF  GAGE<17  OR  GAGE=24  OR  GAGE=3  0  OR  GAGE=3  3  OR 
GAGE=85  OR  GAGE=38  OR  GAGE=88  OR  GAGE=9 1 
OR  GAGE=4 1  OR  GAGE=7  3  OR  GAGE=7  6  THEN 
EX=RESULTS (GN3) : EY=RESULTS (GN1) 

GXY  =  (2!  *  RESULTS (GN2 ) )  -  (EX  +  EY) 

IF  GAGE=56  OR  GAGE=59  OR  GAGE=62  OR  GAGE=50 
THEN  GXY=-1 1  *  GXY 
ESI  =  (EX  +  EY)/2! 

GMAX  =  SQR( (EX  -  EY) A2  +  GXY A 2 ) 

EMAX  =  ESI  +  . 5*GMAX 
EMIN  =  ESI  -  . 5*GMAX 

PHIP  =  (.5  +  ATN (GXY/ (EX  -  EY) ) )  *  57.2958 
NSTOP=l 

WEND 

NSTOP=0 

I 

'Calculations  for  the  new  EA-13-250YA  delta  rosette 
WHILE  GF=2 . 07  AND  NSTOP=0 
EY=RESULTS (GN1) 

GXY= (RESULTS (GN3) -RESULTS (GN2) )/. 8660254 
EX= (RESULTS (GN2 )  +  ( .  4  3  3  0127*GXY) - ( . 25*EY) )/. 75 
IF  GAGE=112  THEN  GXY= (RESULTS (GN2 ) -RESULTS (GN3 ) 
)/. 8 660254 :EX= (RESULTS (GN3 ) + ( . 4330127*GXY) - 
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( .25*EY) ) / . 75 

IF  GAGE=109  THEN  EY=RESULTS (GN2 ): GXY= (RESULTS ( 
GN3) -RESULTS (GN1) )/. 8660254 : EX= (RESULTS ( 

GN1) + ( . 4330127*GXY) - ( . 25*EY) )/.75 
ESI  =  (EX  +  EY)/2! 

GMAX  =  SQR ( (EX  -  EY)A2  +  GXYA 2 ) 

EMAX  =  ESI  +  . 5*GMAX 
EMIN  =  ESI  -  . 5 *GMAX 

PHIP  =  (.5  +  ATN (GXY/ (EX  -  EY) ) )  *  57.2958 
NSTOP=l 

WEND 

NSTOP  =  0 

i 

•Calculation  for  the  new  WA-13-250WF  stacked 
rosette 

WHILE  GF=2 . 09  AND  NSTOP=0 

EX=RESULTS (GN2 ) : EY=RESULTS (GN4 ) 

GXY= (RESULTS (GN3)  -  RESULTS (GN1 ) )  -  (EX  -  EY) 

IF  GAGE=128  THEN  EX=RESULTS (GN1 ) : EY=RESULTS ( 

GN3 ) :GXY= (RESULTS (GN2) -RESULTS (GN4) )-(EX-EY) 
IF  GAGE=124  THEN  EX=RESULTS (GN2 ) : EY=RESULTS ( 

GN4 ) :GXY= (RESULTS (GN1) -RESULTS (GN3) )-(EX-EY) 
ESI  =  (EX  +  EY)/2! 

GMAX  =  SQR( (EX  -  EY) A2  +  GXYA 2 ) 

EMAX  =  ESI  +  . 5*GMAX 
EMIN  =  ESI  -  . 5*GMAX 

PHIP  =  (.5  +  ATN (GXY/ (EX  -  EY) ) )  *  57.2958 
NSTOP=l 

WEND 

NSTOP  =  0 

I 

'Calculation  for  Mohr's  circle  radius 
R  =  .5  *  SQR ( ( EX  -  EY ) A 2  +  GXYA2) 

I 

'Construct  the  display  screen 
CLS: SCREEN  9: COLOR  15 

LINE  (l,306)-(639,306)  'Screen  Dividers 
LINE  (319,0) -(319, 306) 

LOCATE  2, 14: PRINT  "MOHR’S  CIRCLE" 

LOCATE  2, 52: PRINT  "SURFACE  DEFORMATION" 

COLOR  9 

LOCATE  23,29: PRINT  CHR$ (2 3 2 ) ; "p=" ; : PRINT  USING 
"####" ; PHIP ; : PRINT  CHR$ (248) ; 

LOCATE  25,56: PRINT  "Gmax=" ;: PRINT  USING  »##.###»; 
GMAX; 

LOCATE  2 3, 41: PRINT  CHR$ ( 2 38 ) ; "min=" ; : PRINT  USING 
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"##.###" ;EMIN ; 

LOCATE  25,41: PRINT  CHR$ ( 2 3 8 ) ; "max=" ; : PRINT  USING 
"##•###"; EMAX  ? 

LOCATE  23, 56: PRINT  "Gxy=" ;: PRINT  USING  "##.###" ;GXY; 
LOCATE  23,71: PRINT  CHR$ ( 2 3 8 ) ; "y=" ; : PRINT  USING 
"##.###"; EY ; 

LOCATE  2 5, 71: PRINT  CHR$ ( 2 3 8 ) ; "x=" ; : PRINT  USING 
"##.###"; EX; 

LOCATE  23,1: PRINT  USING  "####"; XLOAD ;: PRINT  "  LB 
LOAD" 

LOCATE  23,16: PRINT  CHR$ (238) ; "-m  in/in" 

LOCATE  1,1: PRINT  DATE$ 

IF  GFO2.09  THEN  LOCATE  25,1:  PRINT  "Gages-";: 

PRINT  USING  "###";G(GN1) ;: PRINT 
PRINT  USING  "###";G(GN2) ;: PRINT 
PRINT  USING  "###"  ;G (GN3 ) ; 

IF  GF=2 . 09  THEN  LOCATE  25,1: PRINT  "Gages-";: 

PRINT  USING  "###";G(GN1) ;: PRINT 
PRINT  USING  "###»;G(GN2) ;: PRINT 
PRINT  USING  "###»;G(GN3) ;: PRINT 
PRINT  USING  "###"; G ( GN 4 )  ; 

SCALE  =  R/l. 5151515# 

XIS  =  (ESI  *  100!  /  R)  *  -1 
COLOR  10 

LINE  (5, 160) - (315 , 160)  'X  and  Y  axis 
LINE  (159  +  XIS , 260) - ( 159  +  XIS, 43) 

LINE  (323,160)-(635,160) 

LINE  (479,27) -(479 , 260) 

COLOR  2 

LOCATE  13,1: PRINT  CHR$(238)  'Axis  Labels 
LOCATE  3, 14: PRINT  "Gxy/2" 

LOCATE  3, 58: PRINT  "Y" 

LOCATE  13, 78: PRINT  "X" 

IF  ABS (EX) < . 5  AND  ABS(EY)<.5  AND  ABS(GXY)<.5  THEN 
SMULT=2 !  ELSE  SMULT=1! 

EX  =  SMULT  *  EX : EY  =  SMULT  *  EY : GXY=SMULT  *  GXY 
'Calculations  for  the  element  deformation  shape 
DEX  =  75  *  (EX/2!) 

DEY  =  61  *  (EY/2 ! ) 

GLE  =  ATN (ABS (GXY/2! ) ) 

IF  GXY  <  0  THEN  GLE  =  GLE  *  -l! 

YSLP  =  TAN(1. 5707963#  -  GLE)  *  .77272727# 

XSLP  =  TAN (GLE)  *  .77272727# 

X2  =  ((61!  +  DEY)  +  YSLP  *  (75!  +  DEX))/(YSLP  - 
XSLP) 

X2  -  ((61!  +  DEY)  +  YSLP  *  (-75!  -  DEX))/(YSLP  - 
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XSLP) 

Y1  =  (((XSLP  *  YSLP)  *  (75!  +  DEX) )  +  (YSLP  *  (61! 

+  DEY) ) )/ (YSLP  -  XSLP) 

Y2  =  (((XSLP  *  YSLP)  *  (-75!  -  DEX))  +  (YSLP  * 

(61!  +  DEY)))/ (YSLP  -  XSLP) 

COLOR  7 

LINE  (404 , 99) - (554 , 221)  ,  ,  B 
LOCATE  8, 59: PRINT  ".5" 

LOCATE  13, 68  .-PRINT  ".5" 

COLOR  3 

LOCATE  20, 56: PRINT  "Unit  Cube" 

LOCATE  21, 49: PRINT  "Isotropic  Strain  Mult=";: 

PRINT  USING  " # " ; SMULT 
COLOR  10 

LINE  (118,284)-(184,284) 

LINE  (118,282)-(118,286) 

LINE  (184,282)-(184,286) 

COLOR  3 

LOCATE  20, 14: PRINT  USING  ».###"; SCALE ;: PRINT  "  m 
in/ in" 

COLOR  12 

LINE  (479+X1 , 160-Y1) - (479-X2 , 160+Y2 ) , , , &HAAAA 
LINE  (479-X2 , 160+Y2) - (479-X1, 160+Y1) , , , &HAAAA 
LINE  ( 479-X1 , 160+Y1) - ( 479+X2 , 160-Y2 ) , , , &HAAAA 
LINE  (479+X2 , 160-Y2 ) - ( 479+X1 , 160-Y1) , , , &HAAAA 
COLOR  7 

'Calculations  for  the  Mohr's  circle  position 
CIRCLE  (159,160) ,100, ,,, .81 

IF  SMULT=2  THEN  EX  =  EX/2!:EY  =  EY/2!:GXY  =  GXY/2! 
PEY  =  ((EY  *  66!)  /  SCALE) 

PEX  =  ((EX  *  66!)  /  SCALE) 

PGXY  =  (((GXY/2!)  *  53.5)  /  SCALE) 

COLOR  12 

LINE  (159  +  XIS  +  PEY, 160) - ( 159  +  XIS  +  PEY, 160  - 
PGXY) 

LINE  -(159  +  XIS  +  PEX, 160  +  PGXY) 

LINE  -(159  +  XIS  +  PEX, 160) 

COLOR  10 

LINE  (159+XIS+66, 158) - ( 159+XIS+66 , 162)  'Scale  Marker 
LINE  (157+XIS, 107) -(161+XIS, 107) 

COLOR  4: LOCATE  1,23: PRINT  " (Shif t/PrtSc)  for 
print,  SPACEBAR  to  return." 

Z$  =  INKEY$ 

IF  Z$  <>  CHR$ (32)  GOTO  2430 
LPRINT  CHR$ ( 13 ) 
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